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-TITLE PUDRIVER 
IDENT ‘V 4-860" 


=MmARBAARAAAAAAAAAAAALALAAAASALAAAEAEL AAAS AAS EARLE RASA AREER ARRAS EASE EAA ALAA ASS OS 


COPYRIGHT (c) 1978 Lb 2 f 1982, 1984 BY 
DIGITAL at be CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


: 
4; 
5 ;* we 
+ 
000 Zz : 
0 3 3* * 
44 ;* * 
8 10 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copiep * 
00 11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
4 1 3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWAR R ANY OTHER ® 
00 15 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
000 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 12 as TRANSFERRED. * 
° ® 
0000 i$ 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
444 i :* CORPORATION. * 
3 ® 
0000 1 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 ¢ 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 3* + 
0000 4 ;* * 
444 2 FERRARA AAA REAR EAA AAAAEAAAAAAAARAAAAAAAAAREEAAAARAAARAAARAAARERAAAee AA ee 
000 3 
0000 7 344 
0000 8 ; 
0000 9 ; FACILITY: 
0000 0; 
43 1; VAX/VMS EXECUTIVE, 1/0 DRIVERS 
444 5 : ABSTRACT: This module contains the UDA port driver. 
9000 5 ; AUTHORS: Richard I. Hustvedt, July 1981 
000 6; Robert Rappaport 
0000 73: 
8000 : : MODIFIED BY: 
0000 40; V03-159 RLRSTEP4 Robert L. Rappaport 16-Jul-1984 
0000 41; Expand CNTRLTYP field in Port Step 4 from 4 bits to 7 bits. 
44 4g ; Also add in Scorpio-BUA support and hooks for BDA support. 
900 44: V03-158 RLRQDA Robert L. Rappaport 19-Jun-1984 
4 o2 : Add recognition of QDA. 
6009 23 : v03-157 RLRTRACE Robert L. Rappaport 01-Jun-1984 
4 $8 : Add support to be able to dynamically configure tracing. 
00 29 : v03-156 RLRMAYA Robert L. Re paport 22-May-1984 
00 1 3 Add in MAYA tage support. so add in ab lity to just 
it $ 3 trace ‘'PT’’ ports. 
000 4; V03-155 RLRMVER Robert L. Rappaport 26-Apr-1984 
° Ss Add code to send eoereter message to senplath about ucode 
3 § : out of date on RDRX controller. 
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V03-154 RLRPDTADP Robert L. Reppgoers eraes, The 
1) Init POTSL_ADP. 2) Initialize PDT$L_WAIT ct A tet head 
n 


in INIT_PU_PDT. 3) Clear connection active bi 
PDTSB_CONBITMAP on calls to disconnect. 


v03-153 ROW0334 Gelph 0. Weber 3-APR-1984 
Add setup gf PDTSL_MAXBCNT to BUILD_PDT. Give PDTSL_MAXBCNT a 
value of 127*512 (7.e. 127 blocks). 


v03-152 RLRPHYPGS Robert L. Rappaport 21-Mar-1984 
ake use of new system routine to allocate poxercelt 
contiguous pages. Also add null routine FPCSSTOP_VCS. 


v03-151 PRDOO070 Paul R. DeStefano 25-Feb-1984 
ee +o (Link to newest CSB) when system block 
s created. 


V03-150 RLRDELPOQ Robert L. Respepert 25-Jan-1984 
Eliminate separate conditionalized PQDRIVER and rather 
use CPUDISP to accomodate differences. In general 
differences are in initialization code or in main Line code. 
For initialization code merely use CPUDISP. For main Line 
code (MAPIRP and UNMAP), have two sets of entry points 
one for all CPU's except uVAX I, and one set for uVAX i. 
Then at initialization time, in BUILD_PDT, build PDT 
dispatch table to dispatch to proper entry point for the 
processor we are running on. 


Also fix bug in uVAX I BUILD_PDT that manifested itself when 
we have more than one port; namely we tried to map the 
map registers in the 2nd PDT into the System Addresses 

ointed at by @ADPS$L_CSR+*x800 of the common ADP, where we 

ad already mapped the map registers from the first PDT. 
Solution is to onty 9° thru ate code once. A new flag, 
MAPSV_MAPREGS, in PUSL_DRIVER_STS, if set, means that the code 
has already been executed. 


v03-149 ROW0268 Ralph 0. Weber 28-DEC-1983 
Change instructions used to set aside space for NULL_CDT so 
that space allocated is always large enough to accomidate a 
complete CDOT. (I.E. base the space allocation on CDTSK_LENGTH.) 


V03-148 RLREXEALLOC Robert L. Rappaport 22-Dec-1983 
Correct subtle bug introduced in previous fix. Namely 
the call to EXESALONONPAGED was restored and the call to 
EXESALLOCATE was removed. To deal with the problem of 
deallocating fragments that might be in LRP space. 
the deallocation of the PDT fragment (in PQDRIVER BUILD_PDT) 
ues o) ‘atneted and it was decided to forget about that small 

of space. 


V03-147 RLRMCRED Robert L. Rappaport 18-Nov-1983 
Bring driver into centornence with Latest UQPORT apes. 
1. Ignore credits field (in envelope) for Maintenance 
type messages. 
2. Wait for at least 100 uSecs after initialization 
interrupts before reading SA to look for step bit. 
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3. Test for controller tolerance odd addresses before 
segmenting a transfer and using the aligned buffer. 


V03-146 RLRPQO2 Robert L. Rappaport 14-Nov-* 983 
Clear up problems in non-aligned transfers. In 
particular, make it so that we copy WRITE data to 
the aligned page BEFORE the 1/0 and we copy READ 
data from the aligned page AFTER the 1/0 operation. 
we escent sh this by adding two res es 
SETUP_COPY_SEG1 and SETUP_COPY_SEG2, that perform 
the nécessary setup operations to prepare for a copy 
in either direction. 


V03-145 KDM0104 Kathleen D. Morse 20-0c t-1983 
Fix reference to MMGSGL_SPTBASE to be PIC. 


v03-144 KDM0103 Kathleen D. Morse 01-0c t-1983 
Invalidate virtual address after changing the system 
page table entry to do unaligned transfers. Allocate 
: sreee age table entry in the initialization routine 

or the Qbus. 


v03-143 NPK3050 N. Kronenber 30-Sep-1983 
For PQ allocate PDT so that PDTSL_PQ_MAP within 
the PDT is page aligned. 


v03-142 KDM0102 Kathleen D. Morse 29-Sep-1983 
Change Qbus code to compute physical address of 
ring buffer during initialization. 


v03-141 KDMO0101 Kathleen D. Morse = 29-Sep-1983 
Fix indexing through page table entries for Qbus. 


v03-140 KDM0100 Kathleen D. Morse 29-Sep-1983 
ney 4 the way the ADP points to the map registers 
for the MicroVAX I. Fix virtual to physical translation. 
Add MicroVAX I to CPUDISP macros. 


v03-139 CWH3139 CW Hobbs 17-Sep-1983 
Change DT$ ages symbol for Aztec port to DT$_LESI so 
set DT$_RCT25 can refer to the removable pack on the 
ztec. 


V03-138 RLRNEWPB Robert L. Rappaport 28-Jul-1983 
Incorporate new PBDEF changes. 


V03-137 RLRQIOCHNLa Robert L. Reppaport 15-Jul-1983 
Must refresh R4 => PDT after REQPCHAN. 


V03-136 RLRQIOCHNL Robert L. Rappaport 66-Jul-1983 
Correct subtle error in Q10 routine. After REQCOM, 
PU channel was released. Next interrupt crashed 
system. Fix is to have STARTIO, BSBW to REQCOM, so 
as to retain control after REQCOM. In this way we 
can REQPCHAN again. 


v03-135 RLRSAPOLL Robert L. Rappaport 55-Jul-1983 
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Implement periodic polling of the SA register. Also 
cleanup gone miscellaneous bugs: 
e E -. insert BRB 190$ at the 
end of the Togic following Label TESTUDA_780. 
This corrects a bug that was permanently 
gesting a buffered Gotenes’ on 780's. 
Add a FUNCTAB +EXESZEROPARM for the 
STOP and INITIALIZE qio functions that we now 


support. 

3. In INIT UDA_BUFFERS, save values placed into 
W_BOFF,-UCBS$W_BCNT, and UCBSL_SVAPTE in 

new UCB fields. Then in HARDWARE-INIT, restore 

these values immediately prior to the LOADUBA 

invocation. This corrects the problem that 

the Q10 functions cause the these fields to 

be cleared. 


v03-134 RLRSRVCNI Robert L. Rappaport 3-Jun-1983 
Corect two bugs introduced in previous edit. 


v03-133 RLRSRVCON Robert L. Rappaport 1-Jun-1983 
1. Prevent Logging redundant Initialization Log entries. 
- Correct infinte loop typo in Maintenance Type messages. 
- Connect changes: 
a) Add PDTSB_SERVERS, bit map that lists servers 
supported at this port. 
b) Have CONNECT return SSS$_FAILRSP if caller is 
trying to Connect fo a server not supported 


on this port. 
c) Have CONNECT return R2=>Connect data. 


v03-132 RLRCPUDISP Robert L. Rappaport 25-May-1983 
Use new form of CPUDISP macro. 


2. 
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v03-131 RLRPCHAR Robert L. Reppepert 20-May-1983 
+ Set PDTSM_SNGLHOST bit in PDTSW_PORTCHAR field. 
80 v03-130 RLRPUR780 Robert L. Rappaport 26-Apr-1983 


ss 


Prevent losing context of which datapath to eurge. 
Do this by saving and then restoring the contents 
of CRBSL_INTD+VECS$B_DATAPATH when doing a UDA 
requested purge at device interrupt level. 


v03-029 RLRUDAREV Robert Rappaport 11-Apr-1983 
Test for out of rev UbASO's OA UDASOA's on 780 systems. 


v03-028 RLRSAVCRED Robert L. Rappaport Gangr= 1983 
On Disconnect, save available credits in PDT$W_PU_CREDx, 
where x (ID) is index of disconnecting connectton. 


v03-027 RLRPQO1a Robert L. Rappaport 31-Mar-1983 = 
Fix branch out of range brought about by previous addition 
which also included setting UCBSB_DEVTYPE according to 
UQPORT type. 


v03-026 RLRPQO) Robert L. Rappaport 17-Mar-1983 
Add conditionally assembled support for Q-BUS port. 
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TCMO001 Trud Matthews 28-F eb-1983 

Update pecurrence OR: CPuDISP macro so that the function 
correctly on an }p both cases, we just take the 
same code path as the 11/780. 


a Srese Robert L. Rappaport Linea we A 
Ep oenus minor phasing problem in Path Block and Sys 
Block nitielication by adding new subroutine, UP ate. _PB_SB. 


RLRMSGTYP Robert t. Rappaport 3-F eb-1983 
ability to handle simple Credit type messages and 
aintenance messages. 


RLRDUP1 Robert L. Rappaport 31-Jan-1983 
Fix typo in original RLROUP fix that used R5 instead of RO. 


RLRUSECNT Robert L. Rappaport 25-Jan-1983 
Modify logic 140988 porgenentty a locates arenes Data 
Path on VAX-1 From now on ¥e wi | permencetss 
allocate a BDP if the controller is a UDA ther ee 
controllers ‘‘semi sbermanentiy™ allocate a BDP for the 
duration of a burs implemented via adding 
anew cell PoTse. sBOPUSECNT. Suhich counts she number of 
transfers in a burst that are currently usi ng the 
““semi-permanent’’ BDP. When this count goes to zero, the 
BOP is deallocated. for the UDA, the usecount is biased 
by one, so that it never goes to zero and therefore 
never get deallocated. 


RLRPPFORK Robert L Reepe aport 7-Jan-1983 
Eliminate Suecheck in post _POWE 7h ORK that was 
ect vvoted when it found the UCB fork block busy. 


do this b by defining. ° new UCBSW_DEVSTS ftag. 
UCBSh -PU_MRESET, that if set causeS PUDRIVER to 
reset itSelf upon awakening from the busy UCB. 


RLRDUP Robert L. Rappaport 5-Jan-1983 

age support for two Q10 functions that (1) oftect ively 
shut off Class Drivers from the port and only let 

DUP Rik 4 thru, and then (2) reopen the port. 

The Shutoff Q10 function is IO0$_STOP and the reopen 

function is IOS_INITIALIZE. 


RLRCREDITa Robert L. Rappaport 20-Dec-1982 
Reertionee correction ". tare © of bua, tetrocuced 

or to 
ercene ate cori cRUALTOFL -— tots NCRURITOBL « and 
also code to initialize this header.” 


RLRCREDIT Robert L. Rappa gore 3-Dec-1982 
Corrected bug brought out in TU 
credit that was received on the End Packet of a 
eet COMMAND STATUS (i.e. the 
wee assigned to a waiter on the credit resource 
t queue. Then the time out mechanism had no 
credits to allocate. The fix is to add in the 


Page 


$$EP-198e 00:17:10 EDRIVER.SRESPUDRIVER.man:1 “29° fy 


received credits upon receipt of the message, 
then call the Input Dispatcher and only then 
after return try to resume waiters for credits. 


V03-016 RLRTRBUG Robert L. Rappaport SOc e~1982 
Correct in trace when we have more than 1 UDA. 


V03-015 RLRPATHB Robert L. Rappa rt 6-0¢ t-1982 
Put proper port name into pat lock. Also fill in 
SBSQ_SWINCARN with value in EXESGQ_SYSTIME. 


v03-014 RLRUDASA Robert L Reopapors TeeAug= 1982 
Read UDASA after IOFORK in HARDWARE_INIT so that TU81 
has enough time to update UDASA after interrupting. 


yee Kathleen D. Morse 28-Jun-1982 
Added SOYNDEF, SPRDEF, SSSDEF, and SVADEF. 


v03-012 RLRECOO03 Robert Rappaport 4-June-1982 
Add separate REQDATAP_7 0 and R QDATAP_730 to replace 
REQDATAP_750730. New routine for 750 will only use 
pate peg buffered datapath if the transfer is 
ongword aligned. Otherwise it will use direct datapath. 


V03-011 RLRECOO2 Robert L. Rappaport 7-May-1982 
INSQUE Path Block onto System Block. 


v03-010 RLRECOO1 Robert L. Repecgor’ te 
Add purging of UNIBUS Buffered Data Path in AP. 
This tracks patch made to V3.0 before release. 
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LSBTTL DEFINITIONS 

System definitions (LIB.MLB): 


sAdapter Control Block offsets 
:Class Driver Request Packet offsets 
Connection Descriptor offsets 

Ch annel <a ge & : ock offsets 
:Device type c 

:Device Data Block offsets 

Driver Prologue Table offsets 

; Dynamic data acryesure types 

sError log definition 

iLog por ate type codes 


310 function definitions 

SIPL s symbolic definitions 
yIRP offsets 

;Opcom message yess definitions 
sPath Block offset 
F sPort Descriptor fable offsets 
:Processor register numbers 

SPTEDEF Page Table Entry definitions 
RDD mn aay Descriptor offsets 
st to Block offsets 
is S$ Connection Management format 
SCS Directory Entry offsets 
SSDEF System status codes 
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$S80 
SSCSCMGDEF 
SSDIRDEF 


SUBADEF sUnibus Adapter registers 
SUBMDDEF Uni bus Rene ing ot ge te format 
SUCBDEF sUnit Control Block offset 

SVADEF sVirtual address fields 

SVECDEF ;CRB transfer vector blk offsets 


4 22¢ 
Sess SOlolS 
PUPP Be BS BS BS BE EI II I I nnnnnnnononny 


FWN = OOO NAN E WIN $9 OD NAW EWN O ODNOU ES "OO 


_ 


Kk 8 
ive tt ¢ UDA Command Packet Layout "OSE E1984 B05s7510 EDRIVER.caeaoubaiven.mar;1 2% (8), 


-SBTTL + UDA Command Packet Layout 


———E — | 


Each UDA command packet has the fol towing structure where the 
individual fields are described below the diagram. 


1. A FLINK and a BLINK for queueing the pervert on the 
free queue and also on the SEND Q 


2. SB_RINGINX which contains the index into a ring o 
which this buffer has been placed (valid enly 
"f the buffer is NOT on the free queue). 


3. SB_RINGNO which contains the number (0 => command ring 
and 1 => response ring) of the ring on which the 
buffer is currently residing. 


4. $B_BUFFNO which contains the number of this buffer. 
his value serves as an index into the 
PoTsL BDTABLE, whose elements point to these 
uffers. 


5. $L DESCRIP which contains the UNIBUS virtual address 
9h f o tent portion of this buffer in the low order 
bytes of this lonqword, and which also has the 
igh order bits ownership and full bits) set. 


$1 : 31 0 | 
[pee : 
i ; UDABSL_FLINK Forward Link longword 
: j Coeeewccwnnwccccncccccoccccccce} 
é3 ; ; UDABSL _BL INK Backward Link longword | 
% : ICTTCCCCT Batter’ Ring T Ring! 
re 3 bib manor! ae inese 
73 ; ee ee en ee i 
a : } UDABSL_DESCRIP : UNIBUS virtual address of this buffer 
76: j CORO TRwieityeng’h 
80 AA : : dit: Length Controller message envelope 
000 379; ae amectietan tones: Sy ap hpapeinapareanatinccis te i YDABST_TEXT 
4 80 ; ‘ ! 
00 13 ! Contents of an MSCP Packet ! 
000 H 3 } ! 
0000 3 ! ! 
44 4; ! ! 
000 $3 ‘ ! 
0000 36 3 ORR CRIS EI 
$000 as : 
0000 9 ; SUDABDEF -- Define UDA packet buffer structure. Structure includes 
44 90 ; port driver header, controller header and text body. The port 
0 91; driver header contains: 
0000 92 ; 
0000 9 : 


two 
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This is the precise value that must be placed in 
a ring longword so as to present the buffer to the 
controller. 


vou-008" + UDA Comman 


6. The controller header which contains a word of Length 
(of the following texg portion only), a byte 
containing two four bit fields encoding the credit 
field and the message type field, and a byte of 
Connection ID. 


7. The message text portion. 


| 
| 
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00 
4 SDEFINI UDAB 
4 SDEF UDABSL_FLINK -BLKL 1 ; Queue FLINK. 
094 SDEF UDABSL_BLINK -BLKL 1 ; Queue BLINK. 
444 SDEF UDAB$B_RINGINX -BLKB 1 : Index into ring. 
+4 5 SDEF UDABSB_RINGNO -BLKB 1 ; Ring number. 
8008 $ SDEF UDABSB_BUF FNO -BLKB 1 :; Index of this buffer. 
0000000C Goge 5 -BLKB 1 ; Reserved. 
090¢ rr SDEF UDABSL_DESCRIP -BLKL 1 ; UNIBUS virtual address of buff. 
001 rr SDEF UDABSL_CTRLHDR ; Alternate name for following 
001 44, ; senguerd of fields. 
Oat tte SDEF UDABSW_MSG_LEN -BLKW 1 ; Length of text portion. 
it rr] SDEF UDABSB_CREDTYPE -BLKB 1 3; Encoded CREDIT and MESSAGE TYPE. 
01 448 SVIELD UDAB,0,<- 
01 449 <CREDITS,4>,=- : Credit bit field. 
01 450 <MSGTYPE ,4>,- ; Message type bit field. 
gi 
Biz 438 SDEF UDABS$B_CONID -BLKB 1 ; Connection ID. 
B18 $22 SDEF UDABST_TEXT -BLKB 60 3; Space for minimal maximum. 
00000050 8 637 UDABSC_LENGTH = . 
05 459 SDEFEND UDAB 


<v 
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by 

i ; Define Device 1/0 Page Registers 

4 SDEFINI UDA 

465 SDEF UDAIP .BLK : Initialization and Polling Register 

466 SDEF DASA .BLKW 1 3; Status, Address, & VAX Purge ACK Register 
ies DEFEND UDA 


| 
| 
| 
| 
46 | 
3; ++ 
3 Local symbol definitions 
| 


4 
a3 
ant 
258 
QO0000F 474 LOOP_LIMIT = *X<FAB> ; Step 1 maximum wait time f 
00000088 if INTRIVEC = *0<270> : Primary Interupt vector. 
00000000 477 UDASK_SEQMSGTYP = 0 ; Sequential Message T 
4444 8 £28 UDASK_DGTYPE = 1 3 Data ram type por Aapat 
0000002 479 UDASK_CREDTYPE = 2 3; Credit type 
44 4 $39 UDASK_MAINTTYPE = 15 3; Maintenance type 
0000004 481 UDASK_RINGEXP = 4 ; Log base 2 of desired ring size 
00000010 ret UDASK_RINGSIZE = 1@UDASK_RINGEXP ; Number of Ring & Packet entries 
94 a8s 3; Command and Message Ring Control Flags 
444443 000 4 § UDA_V_FLAG = 30 :; Buffer control bit number 
4000000 000 487 UDA_M_FLAG = 1 @ UDA_V_FLAG ; Buffer control flag mask 
0000001F 00 488 UDA_V_OWN = 31 ; Own flag bit number 
80000000 44 $83 UDA_M_OWN = 1 @ UDA_V_OWN :; Own flag mask 
80000000 0000 $3) UQPORT_M_MAPPED=1831 ; Transfer Mapped by port. 
0000000A $00 198 STEP1_LIMIT=10 ; Number of seconds for STEP 1 timeout 
QO000000A 0000 494 Lt ETD hd ; Number of seconds for STEP 2 timeout 
0000000A 4 495 STEPS_LIMIT=10 ; Number of seconds for STEP 3 timeout 
00000080 44 NUMUBAVEC=128 ; Number of slots in UBA vector 
00000005 $9 9 NO_CONSEC_INITS=5 ; Number of consecutive times to retry 
00 ; hardware init without waiting for awhile. 
0000000A 0000 INIT_DELTA=10 ; Number of seconds to wait when we wait 
3 : for a while. 
00000001 ALLOC_DELTA=1 : Number of seconds to wait before 


retrying allocation request. 


Size of data saved in PU_REGDUMP. 
ine Ludes space for ATTNCODE(2), 


P 
UDASA(4-MOVZWL), HOST-PORT(16). | 


0000001C REGSAVE=2+2+4+4+16 


Soooooo 
SLOSS SOSSS 


AAAI UTUTUTUTUIUTIUN & Be Be 


SOooooooooooooo 


00000001 > INIT_ATTNCODE=1 Attention code for INIT record. 
00000 § FAIL_ATTNCODE=2 Attention code for failing INIT record. 
00 UDASA_ATTNCODE=3 Attention code for record after error. 
0 PURGE _ATTNCODE=4 Attention code for Purge error record. 
5 UCODE-ATTNCODE=5 Attention code for uCODE out of rev. 
00000000 $00 UDASO_CNTRLTYP=0 3; UDASO controller type code. 


<v 
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sr 


000002 
80000001 


00000200 


0 


0 
0 


le 
3 


RDRX a = 
§ MAYA-C TYP= 
QDA50_ CNIRLTYP=13 


=~ 


5 Pisk. CONID=0 
Se CONID=1 

DUP eroONtDe2 

§ SA_POLL_INTVAL=15 
» NO_PHYCONTIGPGS=1 


NO_PHYCONTIGBYT=NO_PHYCONTIGPGS*512 
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LFS (RC25) controller type code. 
controller type code. 
uD DA30A controller type code. 


Disk Server Connection ID 
pege Server Connection ID 
Server Connection ID 


SA cogister petting interval. 
# of physically contiguous pages 
ear for non-aligned transfers 


n QBUS. 
a oof physically contiguous bytes. 


(2) 


<v 


04-000" 


000000E4 
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ed ed ed ed ad ed ed nd ed = =I HOOD OO OOOO OCOOCOOCOCOSCSCOCGCOCOCSOOCOOCOOOOOOOOOCOoOo 
8 et ad td = IOOOOOOCO™M DHMH HH HHH HHH HHH HMMMMMMMMmMmoOoOoOCOOOCOCOCOoOO 


COOSOOCOCOSOOCOOCOOSCSOCOOCSOOCOSOOSOOOOSOOSOSOOOOOOSOOOOOOOOSOOOOOOOoOSoO: 
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+ Define PU Port specific PDT extension 


16-SEP-1984 01:05:05 VAX/VMS Macro v04-00 
ae ree er yi tat TT RO 


-SBTTL + Define PU Port specific PDT extension 


; PUPOT - -- Define PU port specific extension to the 
Must *Rites gi ter the definition of UDASK © RINGEXP and 
Ht NGSIZE) 


pereranes 
a 


SDEFINI PUPDT 
=. +PDTSC_LENGTH 


DEF PDTSL_PU_CDTARY 
DEF PDTS$L_PU_VCO «BLKL 


; Position to end of port- 
independent portion of POT 

; Array of pointers to CDT's. 
Connection block address for 
virtual circuit 0 Disk MSCP 


SDEF POT$L_PU_VC1 -—BLKL 1 ; Connection block address for 
; virtual circuit 1 Tape MSCP 
SDEF PDT$L_PU_VC2 -BLKL 1 ; Connection block address for 
; virtual circuit 2 DUP 
SDEF POT$SL_PU_VC255 .BLKL 1 ; Connection block sdgress for 
: virtual circuit 255 (-1) 
3 Maintenance protocol 
SDEF PDTSW_PU_CRDARY 3 eorey of initial credits. 
SDEF PDT$W_PU_CREDO .BLKW 1 : reer $3 ee  Seeien on next 
SDEF § PDT$W_PU_CRED1 .BLKW 1 : credits to to “assign on next 
SDEF § PDTS$W_PU_CRED2 .BLKW 1 : Credits to assign on next 
: Connect to vC2. 
SDEF PDTSW_PU_CRD255 .BLKW 1 ; Credits to assign on next 


CONNECT to VC255. 


AFIS 
$OO0909 0909090969 09 09 09 INI NINN SNA AAA AAA AAA MMMM III EE EE EEE EE 
=O OOD NONE WIN @ 9 OD NAM ES WIN S$ OOO NAUE WN O OO NAMES WIN ( O ODNAUE WN OOOO 


WDVPUPV LV LPVLVLIVLVLVLVLV LV LVLUIVIULIVIUIVSUSVIVSIVUSUSUS VSS USSU ISIS ISIS ISTIIIS 


SDEF PDT$L_PU_SB Mma 7 ; Address of our System Block. 
SDEF PDTS$L_PU_CSR -BLKL 1 ; Pointer to controller CSR. 
SDEF PDTSL_PU_FQPTR .BLKL 1 ; Pointer to Free Q. Used to 
: cost for emptiness of Free Q. 
SDEF POTSL_PU_FQFL .BLKL 1 : Free Q forward pointer. 
SDEF POTSL_PU_FQBL .BLKL 1 : Free Q@ backward pointer. 
SDEF PDOTSL_PU_SNDQFL .BLKL 1 ; Send Q forward pointer. 
SDEF PDTS$L_PU_SNDQBL “BLKL 1 3; Send Q backward pointer. 
SDEF POTSL_PU_BUFQFL .BLKL 1 ; Buffer wait Q forward pointer. 
SDEF POTSL_PU_BUFQBL .BLKL 1 ; Buffer wait Q backward pointer. 
SDEF PDTSB_CRINGINX .BLKB 1 : Index of next available slot 
; _in command rin 
SDEF PDTSB_CPOLLINX .BLKB 1 > Index of next slot to be polled 
: by host, to see if released. 
0 SDEF POTSB_CRINGCNT .BLKB 1 ; Count of number of command 
; ring slots in use. Also 


9 
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9 ; absolute difference between 


3 previous two fields. 
SDEF = PDTSB_RRINGINX .BLKB 1 
SDEF POTSB_RPOLLINX .BLKB 1 
SDEF PDTSB_RRINGCNT .BLKB 1 


Index of next available slot 
in response ring. 
Index of next slot to poll by 
host, to see if filled in. 
Count of not yet filled in 
buffers on response ring. 
Absolute difference between 
previous two fields. 


NOU 


SDEF PDTSB_NOCURCON .BLKB 1 
SDEF PDT$B_CONBITMAP .BLKB- 1 


SDEF POTSB_SERVERS .BLKB 1 


# of current connections. 
Current Connection bit map. Corresponding | 
bit set for each open connection. 
; Servers Supported at this Port. Bit 

set for each supported Server. 


SDEF PDTSB_DATAPATH .BLKB 1 ; Permanently (or sont=pormenent ty: 

allocated datapath. For VAX11-750 

only. Else zero. 

SDEF PDTSB_BDPUSECNT .BLKB 1 ; Count of # commands using above BDP. 
-BLKB 1 Reserved 


SDEF POTSB_CRCONTENT .BLKB UDASK_RINGSIZE 


0000012C 


3; Array of ayees (one per each 
3; command r ng slot) which 

3 maintain index of buffer 

: currently filling this slot. 
.SDEF PDTSB_RRCONTENT .BLKB  UDASK_RINGSIZE ; Array of bytes (one per each 
3 response ring slot) which 

3 maintain index of buffer 

; currently filling this slot. 


SDEF PDOTSL_BDTABLE .BLKL 2*UDASK_RINGSIZE; array of longwords (one per 
: buffer) which point to the 
3 respective buffers. 


; 


a a > > — 2 > 2s — 5 > 2s —» 5s 2s ss > as ss ss 5 ss a 


3; For uVAX I the communications area must not straddle a 64KB boundary. 
; So the following .ALIGN starts the communications area on a new page 
3; and since it is less than 512 bytes long, it cannot straddle pages. 

3 Note, for uVAX I the PDT is allocated in contiguous memory on a page 
3; boundary and therefore the .ALIGN really is relevant to a page. 


=<. 4511>8<*c511> 3; Equivalent of .ALIGN PAGE 
SDEF PDTSL_COMAREA 


00000200 


UDA communication area base 
Reserved word 

Reserved byte 

Purge data path number 


WANIWIAAIN NAAR INIPIPINPINININININY 2 2 PP M MPOOOOOOOOCOCOOOOOOOO 


BONA MEW OC OD NAU ELE WIN O OD NAUE WN SO ODO NAULS WN (OO ONAUS WN O 


“BLKB 
SDEF  PDTSB_PURGEDP <BLKB 
SDEF  PDTSW_CMDINT .BLKW 
DEF  PDTSW_RSPINT  .BLKW 


DEF POTSL_RINGBASE , 
DEF PDTSL_RSPRING .BLKL UDASK_RINGSIZE ; Response ring 


00000 Oe 
0000020 


Command ring transition flag 


— os at 


Response ring transition flag 


Ce ee ee ew mw www lwo lolol ola lala ln lw ln fo lw lw ln law lol olololololololololololololololalelololol ole ole ole lola) 
WOOK A & LWMIOOOMAAOMAOOMAOOOOOOOOOAAOOAOOODW DS YS SP OOOWONOOOOOUIUNES SUww 


PEPPER APEAPAPAPA AAPA PA AAA AAA AAPA AAA AAA AA AA AA AA AAA AA AA AAA AMIN 


SOOOGOGOOOCOGWVOSONAHOOOOAOAAONY 


5 Sk ek tah eh ek ee 


Se 


04000" 


3 
‘ 
i 
54 
2? 
$$ 
3 
60 
61 
6 

6 


6 

4 6 
00000088 ? 
6 

6 

6 

6 

6 

6 
00000A88 6 
6 

. © 
6 

6 

6 

6 

6 

6 

6 

6 

6 


C 
C 
C 
C 64 
C f 65 
0c 26 
0C90 8666 
0C94 68 
0C94 69 
00000094 0C94 70 
0C94 71 
0C94 Le 
0094 ? 
0C94 74 
0c94 675 
0C98 4 676 
0C98 677 
0C98 678 
OCc9C §=— 679 
OCAO 680 
OCAS 681 
OCA8 oe 
OCAC 68 
OCAC 684 
OCAC 685 
CAC 686 
CAC 687 
CBO 30 688 
CB4 = 689 
CB4 = 690 
0CB4 8691 
EB4 $36 
£B4 69 
QO000CB4 OEB4 694 
EB4 9 


8 
00000EB4 tree 24 
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SDEF PDTSL_CMDRING _.BLKL _UDASK_RINGSIZE ; Command ring 
PDTSC_COMAREACN = .-PDTSL_COMAREA 3 Length of Comarea 
SDEF PDTSL_PU_BUFARY ; Buffer array. 
REPT  2*UDASK_RINGSIZE ; Allocate packets for response 
3; and command rings 
-BLKB UDABSC_LENGTH ; Length of a buffer. 
PDTSC_RINGLEN = .=PDTSL_COMAREA ; Length of area to map 
SDEF POTSL_TRTABLE .BLKL 1 ; Pointer to base of usable eeyens 
; _header) portion of trace tab 
SDEF POTSL_TRTBLPTR .BLKL 1 3 os to next area in trace table 
SDEF  PDTSL_TRTBLEND .BLKL 1 : peteker “beyond end of trace table. 
PDTSC_PULENGTH = . ; Total size 


of a 
3; PDT for the UDA port 


3; The following PDT extension is only needed when running on uVAX I. 


SDEF PDTSL_PQ_MAP -BLKL 1 ; Vitrual pointer to 496 pseudo map 
; ‘registers’. 
SDEF POTSL_PQ_PGQFL .BLKL 1 ; Queue Header for CDRP's g weteing 30 
SDEF POT$SL_PQ_PGQBL .BLKL 1 ; allocate the ali ye Page that follows. 
SDEF POTSL_PQ_POWNER .BLKL 1 ; CDRP that current wns the Page. 
SDEF PDTSL_PQ_PGPHAD .BLKL 1 ; Physical address of the Page. 
SDEF PDT$L_PQ_UBFSVA .BLKL 1 ; Virtual address . the page mapped by 
; UCBSL_SVPN. This page is used to map 
3 one page of the user's buffer in order 
: x8 be able to copy it to the aligned 
+ _Page. 
SDEF POTSL_PQ_SVPPTE .BLKL 1 : Pointer to the PTE of the UCBSL _SVPN. 
SDEF PDTSL_PQ_USRPTE .BLKL 1 3 Pointer into user page table that 
3 points to current user SVAPTE. 
SDEF PDTSL_PQ_ALGNPG .BLKB NO_PHYCONTIGBYT ; A word aligned string of 


PDTSC_CONTIGLEN = 


PDTSC_UVILENGTH = 
SDEFEND PUPDT 


-~PDTSL_COMAREA 
3 contigu 


physically contiguous pages. 


; Length of aren needed to be Physically 
: Lengthvot P PDT needed for uVAX I. 


4 | 
2) 


. 2 
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88 .SBTTL + Define PU specific UCB extension | 
3+ | 
7 ¢ 3 SPUUCBDEF -- Defined UDA extension to UCB. 
7035 ; (Must eppeer after the definition of UDASK_RINGEXP and 
: : UDASK_RINGSIZE) 
7 oO 
b 4 5 SDEFINI UCB 
000000A0 7 5 »=UCBSL_DPC+4 ; Position to end of 
A £19 3 standard UCB for 
= 4 : error logging devices 
oY at SDEF UCBSL_PU_ALLOC .BLKL 1 ; Space to save size of alloc. request. | 
AS 715 SDEF UCBSB_UDAFLAGS .8LKB 1 : Internal control {Logs | 

QOAS ay SVIELB UDA,0,<- : Internal flag definitions 

QOOAS 71 <ONLINE,,V>,= ; UDA is On Line 

OOAS 718 <STOPPED, .M>,- : Port only open for DUP CONNECTIONS. 

a 
OAS 721 SDEF UCBSB_INITCNT .BLKB 1 3 Count of # of times left to retry 
OA6 7 § : hardware init consecutively. 

Opa 4 z SDEF UCBSW_NUMBINITS .BLKW 1 ; Number of times UDASO has been Inited. 
OB i ; SDEF  UCBSW_ATTNCODE .BLKW 1 ; Attention code for PU_REGDUMP. 

Opan 4 i SDEF UCBSW_UDASA -BLKW 1 ; Contents of SA saved at last interrupt 

QOAC 729 SDEF UCBSW_PORTSTEP1 .BLKW 1 3; Contents of SA at start of STEP1. | 

OOAE 730 -VIELB PS1,0,<- : Fields in STEP1 

QOAE 731 -6>,- ; Reserved | 

QOAE 7 ¢ <MP,,M>,- : If set port supports adaress mapping 

QOAE 7 <0D,,M>,- ; If set port queperts odd addresses 

QOAE 734 <D1,,M>,- : If set port implements enhanced diagnosii | 

QOAE 735 <QB,,M>,- : If set port supports 22-bit bus addr | 

QOOAE 7 $ <NV,,M>,- : If set no host settable vector addr 

OOAE a <$1,,M>,- : Must be set in step 1 

QOAE 738 <$2,,M>,- ; Must be clear in step 1 
OAE 739 <$3,,M>,- ; Must be clear in step 1 | 
OAE 740 <$4,,M>,- 3: Must be clear in step 1 
OAE 741 <ER, ,M>,- ; If set then we had an error 
DAE P48 ; | 

A 744 SDEF UCBSW ori ee -—BLKW 1 ; What host writes to SA in STEP1. | 
0p 745 -VIELB HS1,0,<- 3; Fields in Host STEP1 
080 746 -" <INfVEC,7.M>,- ; Interrupt vector address/4 | 
0B0 74 <1E,,M>,- : Interrupt enable during STEPS 1-3 
080 ree <RRNGLEN,3,M>,- ; Response ring Longee (exponent) 
be8 74 <CRNGLEN,3,M>,- : Command ring length (exponent) 
0B 750 <WR, ,M>,- : If set port enters diagnostic wrap mode 
080 751 <BIT{5,.m>,- : High bit always set 
0B 4 § > 
3 754 SDEF UCBSW posts ters -BLKW 1 ; What port responds st start of STEP2. 

755 -VIELB PS2,0,<- ; Fields in Port STEP 
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SDEF 


SDEF 


SS 
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SDEF 


12 SDEF 


F 9 


_ 
WO 

ee 

vv om 


CRRNGLEN. 3.0 
<CRNGLEN,3,M 
<WR,,M>,= 


<,1>,° 
<PORTTYPE,3,M>,- 


<ER,,M>,- 
> 


UCBSW HOSTSTEPZ .BLKW 
-VIELB HS2,0,<- 
<P1,,M>,- 
<RINGBASEL, 15,M> 
UCBSW PORTSTEPS -BLKW 
-VIELB PS3,0,< 


<INTVEC,7,M>,= 
<1E,,M>,- 


<ER, ,M>,- 
> 


UCBSW HOSTSTEPS -BLKW 
-VIELB HS3,0,<- 
<RINGBASEH, 15 ,M> 


> 


UCBSW_PORTSTEP4 .BLKW 

-VIELB PS4,0,<- 
<UCODEVER,4,M>,= 
<CNTRLTYP.7.M>.= 


<$4, M>,- 
<ER, M>,- 
> 
UCBSW HOS TSTEPS -BLKW 
-VIELB HS4, NS 
<LF o “> - 
<BURST.6,M>,~ 
<, > Ps 
> 


UCBSL_PU_SVAPTE .BLKL 


1986 8 


1 


1 


1 


1 


1 
0 
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Echoed response ring songen (exponent) 
Echoed command ring Length (exponent) 
Echoed siegpest te wrap bit 

Echoed BITIS always set 

Type of this port 

Must be clear in srepe 

Must be set in STEP 

Must be clear in STEP 

Must be clear in STEP 

If set then error in STEP! 


What host writes to SA during STEP2. 
Fields in Host STEP2 
Host requests adapter purge interrupts 
Lo order of address of communication 
area (in UNIBUS virtual space) 


What port responds gt start of STEP3. 
Fields in Port STEP 

Echoed interrupt address/4 

Echoed interrupt enable 

Reserved 

Must be clear in STEP3 

Must be clear in STEP3 

Must be set in STEP 

Must be clear in STEP3 

If set we had error in STEP2 


What host writes to_SA during STEP3. 
Fields in Host STEP3 
Hi order of address of comm. area 
If set host requests execution of 
purge and poll tests 


What port responds at start of STEP4. 
Fields in Port STEP4 

Microcode version number 

Controller type 

Must be clear in STEP4 

Must be clear in STEP4 

Must be clear in STEP4 

Must be set in STEP4 

If set we had an error in STEP3 


What host writes to SA during STEP4. 
Fields in Host STEP4 
If set controller begins immediately 
If set host wants bast Fail response 
Maximum lonwords(-1) / NPR transfer 
Reserved 


Place to save UCBSL_SVAPTE. 
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ooo 
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PPPS SEO 


3 SDEF UCBSW_PU_BOFF 
4 SDEF UCBSW>PU_BCNT 


ovice UCB,0,<- 


13 

3 

i 

9 <PUCHRDINE BD = 
<PU_MRESET, ,M>,= 

§ <PU “TNILOG. A>. 

5 

§ Pin =. 

8 


SDEFEND UCB 


1g-sep-1 


-BLKW 
-BLKW 


P=19 


1 
1 
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3; Place to save UCBSW_BOFF. 
; Place to save UCBSW_BCNT. 


oe bits for UCBSW_DEVSTS 


Unu 

Fork. block interlock bit 
Hardware init in progress 

POWER init in RP eRe 

Goto Toes POWER_FORK ofter fork. 
BOP already allocated (or not). 
Init Log in progress 
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0 -SBTTL DRIVER STRUCTURES 
»SBTTL Driver Prologue Table 
DPTAB tyre ste Tg suas of driver Label 
4 PTER= UBA,- soter pe 
5 PLAGSEDPTSM: SCS!DPTSM. svbi bP "NOU LOAD, 
§ ~ Driver” Pape res SCS to be loaded 
° ; uVAX I needs System Virtual Page 
8 UCBSIZE=UCBSC_PUSIZE,- UCB size 
ib NAME=PUDRIVER™ cbr iver nane 
4} DPT_STORE INIT 
iti ‘8 DPT_STORE UCB, UCBSB_FIPL.B,8 sFork IPL 
03C 45 DPT_STORE UCB, UCBSL_DEVCHAR,L,<- ;Device characteristics: 
03¢ 46 DEVSM_SHRT- : Sharable 
003¢ 4 DEVSM_AVL!- 3 Avaitabl le 
8 C re DEVSM_ELG!- : Error bogging device 
03C 4 DEVSM_IDV!- ; Input dev 
st 9 DEVSM_ODV> ; Output device 
O94 26 DPT_STORE UCB,UCB$B_DIPL,B,21 sDevice interrupt IPL 
opee 30 DPT_STORE REINIT 
0047 2$ DPT_STORE ORB CRBSE tar D,PUSDDT ;DDT address 
904¢ 5 DPT"STORE CRB, CRB 6+4,- ; Interrupt routine addr 
04C 58 D,PUSI 
0051 859 DPT_STORE CRB,CR Tay INTD+VECSL _INITIAL,- 
Boay 860 D,PUSC IT sController init addr 
056 861 DPT_STORE CRB, CRBSL INTD+VECSL _UNITIN Nites 
0056 Ha D,PUSUNITINIT Unit init addr 
0058 6 DPT_STORE END 3 


1 9 | 
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eg -SBTTL + Driver Dispatch Table 
DDTAB hep aest | = 
68 START=PU STARTIO . 1010's are iLtegal temporarily 
8 FUNCTB=PU fiop3 ABLE, - tFunction decision tab 
0 UNITINIT=PUSUNITINIT, = sUnit init routine addr 
7 ERL GBF =REGSAVE +4sEMBSL _DV_REGSAV, = 
REGDMP=PU_REGDUMP 
74 ; 
75 : We only support two functions; I0$_STOP and IO$_INITIALIZE. pee. ae 
16 : eff {rect ively st Sioses the Port fo all connections except those to 
9 i 3 _ DUP SERVER. The second function reopens the Port aad. initializes 
6 i :. 
3 Inp 
0 1 : “Rs 2 
gi 3 => ice of Port 
4 ° 
3 bag °° PUSSTARTIO: 
00 EF 00 $ EXTZV #IRP ey _FCODE,=- 3; Extract function code. 
0 003A 88 #IRPSS~FCODE 
50 20A 0 89 IRPSW spunc cad). RO 
0 91 E 90 CMPB #10$_STOP,R 3: See if 108. STOP _request. 
20 13 0041 91 BEQL START_STO ; EQL mean yes 
50 04 91 0043 3 CMPB #10$_INITIALIZE,RO 3; See if 10s” IN ITIALIZE requested. 
38 S12 once oF BNEQ ILLIOFUNC 3; NEQ means fot one of supported functions. 
55 oD open 95 PUSHL R5 : Save RS => UCB. 
2F 610 004A 9 BSBB SUCCESS 3; Complete Q10 request but get control 
004C 89 3 after REQCOM so as to continue. 
55 BEDO 004C 98 5 3; Restore R5 => U 
Boat 99 REQPCHAN 5 Rewet locate AA after REQCOM. 
54 0084 C5 0 0055 00 MOVL ucest POT(RS) .R4 3; R4 => PDT. 
OCA2 0 OOSA 901 BSBW FPCSM afe set 3 Do initiolize. 
€ 8A 005D 90 BICB #UDASM PPED :; Open up port. 
O0A4 C OSF 90 uCBS$B NODASLAGS {RSD 
05 be one stent sta 3; Kill this thread. 
55 oD bo an6 “ PUSHL R5 : Save R5 => UCB. 
14 10 006 9 $ SUCCESS : Complete Q10 request but get control 
67 208 : after REQCOM so as to continue. 
55 8ED0 67 OPL 3; Restore R5 => vce. 
$A 39 REQPCHAN 5 Rewal Locate channel after REQCOM. 
54 0084 C5 0 00 11 VL UCBSL_PDT(RS) ,R4 3: R4& => PDT. 
eg 8 7 aig BISB DASA_STOPPED,- $ tone port. 
004 C 7 1 UCB$B_ODAFLAGS (RS) 
05 7A 914 RSB 3; Kill this thread. 
078 915 SUCCESS: 
50 01 400 78 3i8 MOVL asss sw RO ; Return success code. 
05=«(1 7 4 a comPCET 3 And branch around. 
50 OOF4 8F 3C 319 MOVZWL #5S$_ILLIOFUNC,RO ; We do not support other Q10's 
359 COMPLETE_10: 
51 D4 9 CLAL R1 


] 


voe-008" + Driver Dispatch Table se 2 SEP. 1984 $0: 93: % YORIVER. atts SubRiver. R.MAR; 1 Aas 23, 


0087 922 REQCOM 


ee . ~ 


K 9 
ive tt + "Register’’ Dump routine Bet 1 84:93:93 DRIVER. Sh SR CIP PUD SRiver. MAR; 1 _ @) 


4 ¢ -SBTTL + "“Register’’ Dump routine 
D g : 3+ PU_REGDUMP 
4 | 
3 Inputs: 
» 9 § hey RO => => Buffer to fill 
DST | | 
D 93¢ ; Outputs: 
08D $ R1 modified 
0 4 ¢ 3 
° : 4 § PU_REGDUMP 
re D0 008D 9 MOVL ease at (RO)+ Save number of bytes following. 
80 OA8 cs 88 4 339 MOVW UCBSW LATENCODE (RS) (RO)+: Save Attention code (record tree). | 
80 0006 C5 B80 0095 940 MOVW UCBSW~ NUMBINITS(R5S,(RO)+; Number times port init ‘ed. 
51 24 AS 00 bee 3e) MOVL tat ties _CRBC(R5S) ,R1 ; R1 => CRB. 
O9E 308 ASSUME VEC$B yee EQ VECSW_MAPREG+2 
O9E 944 ASSUME VECS$B- DATA EQ VEC$B8_NUMREG+1 | 
80 34 A1 00 4 $e? MOVL CRBSL_ INTDSVECSW -MAPREG(R1), (RO)+ 3; Save dedicated map registe 
80 OOAA CS 3C BRA si MOVZWL UCBSW_UDASA(RS5),(RO)+  ; Save contents of SA register. 
Goa? 348 ASSUME UCBS$W_HOSTSTEP1 EQ UCBSW_PORTSTEP1+2 
OA? 950 ASSUME UCBSW” “PORTSIEPZ Ed UCBSW “Wostetehsg | 
QOA7 951 ASSUME UCBSW"HOSTSTEP2 EQ »¥CBSu_ PORTSTEP2+ 
80 OOAC CS 7D + wd 326 MOva UCBs PORTSTEP1(RS), ; Save Host-Port dialogue. 
OAC 954 ASSUME UCBS$W_HOSTSTEP3 EQ UCBSW_PORTSTEP3+ 
OAC 955 ASSUME UCBSW_ PORTSTEP4 EQ UCBSW_ HOSTSTEP3S+ 
OAC 956 ASSUME UCBSW"HOSTSTEP4 EQ UCBSW- acy oy 
80 0084 (5S 7D Boat eH Vv Matis PORTSTEP3(R5),(RO)+ Save Host-Port dialogue. 
05 0081 959 RSB ; Return to caller. | 
| 
| 


Ll 9 
VOen O00. + Function Decision Table a asset 80; 93 % LORIVER. Sh R.S REIPU SuDR IVER MAR: 1 


; -SBTTL + Function Decision Table 
PUSF UNCTABLE : 
FUNCTAB ,=- :Valid ‘eee 
3 <STOP,=- ; Stop por 
‘ INITIALIZE> 3; Reopen Port and Initialize. 
A 369 FUNCTAB ,- sBuffered functions: 
OBA 4 0 <STOP,- ; prop por rt. 
OBA 71 INITIALIZE> eopen Port and Initialize. 
45 376 FUNCTAB *+EXESZEROPARM, - ‘ TERO — FUNCTIONS 
C 97 <STOP,=- : Stop port 
OC2 97% INITLALIZE> > Reopen Port and Initialize. 


me 


———$——$————— LE sss 2:80) 
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+ Static Storage “SEP-1 DRIVER. SRCIJPUDRIVER.MAR; 1 (2) 


f 4 -SBTTL + Static Storage 
: a ; Static driver storage 
oo 8 “ 33 0 ALIGN LONG,O 
000 D 2 1 pt DRIVER Ht «LONG 0 ; Status flag longword. 
000000 D4 ¢ MAPS7_MAPREGS= ; Bit meaning that the pseudo map 
004 9 : registers have been mapped into 
004 984 ; aystem space at “x800 in the Q-bus 
poe 985 : CSR’ area pointed at by ADP. 
00000001 D4 986 MAPSM_MAPREGS=1 3; Mask of above bit. 
94444444 it 2 PUSL_MPHYAD: «LONG 8 ; Physical address of ‘map registers"’. 
000 D8 8 PUSL_TRACE_VARIABLE: - LONG ; Variable describing what kinds (if 
00DC a4 3 _any) of trace have been enabled. 
ODC 990 : 0 implies no port tracing. 
Opc 991 : 1 implies we try to allocate resources 
Ope 99 ; .to trace for ports that supeer’s Tapes 
Bope oer : 2 implies that we try to allocate 


| 
| 
resources to trace all ports 


n 9 


RIVER 16-SEP=1 AX/VMS Macro v04-00 P 6 | 
ra ht + NULL MESSAGE AND DATAGRAM INPUT ROUTIN §-8 SEP=1 138 83; 93: % YORIVER. SRC JPUDRIVER.MAR; 1 — 23) | 
-SBTTL + NULL MESSAGE AND DATAGRAM INPUT ROUTINES 

“SBTTL ¢ NULL CDT | 


aa 


; NULL CDT and NULL message input and datagram input routines. 


Inputs: (for routines) 
R1 “Length of message 
R2 “Addr of message 
RG “Addr of PDT 


oO 
OODWOOWOOCOOOOOonD 
NO 


Ry ghey Soper maior: <a ergata Ranta: 


eenabl Lsb 


NULL_MSG_ INPUT: 4 poy messages for null Comete tae 


> are be ignored. 
53 DD PUSHL R3 ; Save R 
10 «11 BRB 10$ ; 


NULL_DG_INPUT: nbe Cogaed for null connections are to 


53 PUSHL R3 3 e R35. 
53 OODC C4 MOVL PDT$L_UCBO(R4) ,R3 : RS. => ue. (input to ERLSLOGMESSAGE) 
MOVL #EM UM, H Log message type. 
JSB G*ERLSCOGMESSAGE : L to log message. 


10$: 
SUBL #UDABST Ng Sf R2 
BSBW 9 DEALLOC BUF 


POPL 
NULL_ ROUTINE: 
NULL[ERR_ROUT: 

RSB 


R2 => buffer header. 
Call internal entry to deallocate buffer. 


SOooooooooooooooo 


COOoOSOSCSCSCOSOSOSOSSOSOOOSOOSOSOOOOOOSOOOSOoOSO 
RW HHH MMMMMMMnMooOCVCVIVTVTV CVT VT VTVTVTVTTTCO 


SOOD S OSOOPOWOO F WNOCOCOSMNAMOOMOOAAAAOAOAAOOAOAOOAO 


DD 

D0 

0 04 00 
00000000°GF 16 
3 

0 

dO 


Restore R 


Label of an RSB instruction. 


ae a a eb ts ns 4 8 st a ts et 


COOCOCOOCOOOOOOOOoOOoOOOoOoOCOoO 


WWW AROPOMOPOMONONONONUND 2 2 2 GO 


0 
6 
05 $4 3; Return to our caller. 
00°00" OOF ALIGN LONG,O 
OOF NULL_CDT: 
0000019C OOF -BLKB CDTSK_LENGTH ; Allocate space for the NULL CDT. 
019 -dsabl (sb 


} 
| 
| 
: Branch around to deallocate buffer. 
| 
| 
| 
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PUC 
v04 


-SBTTL Request and Release DATAPATH transfer vectors 


oa 


-ALIGN LONG,O 
REQDATAPATH_TV: ; Transfer vector to routine to request 
a UNIBUS data 


: ath. 
00000000" .LONG  LOCSREQDATAPUDA t Routine to call (for VAX=11/780). 
; For other processors, this pointer 
; will be Ovar tere with the aaerece of 
; REQDATAP_750 or REQDATAP_750, below. 


; Transfer vector to routine to release 
a UNIBUS rig 
; Routine to call when running on 


RELDATAPATH_TV: ; 
: VAX-11/780. for other processors, 


00000000° -LONG JIOCSRELDATAPUDA 
this address is overlaid with the 
RELDATAP_750 or RELDATAP_730, below. 


REQDATAP_750 assigns the ‘'semi-permanently’’ allocated datapath, currently 
in use by the current burst, gn the ussogs count by one, 
or if no burst is in progress, allocates a buffered datapath and 


then increments the useage count by one. 


The following paragraph applies only until the Buffered Datapath bug is 
fixed on VAX-11/750's. 
If the current transfer is NOT longword aligned or if it is NOT 
an sntegres number of longwords in Length, we do NOT use the Buffered 
Datapath but instead use the direct datapath. We implicitly assign 
direct datapath (i.e. datapath zero) by simply 
B'ing to our caller, depending on the fact that our caller cleared 
CDORPSL_UBARSRCE before calling us. Note that in this case we do NOT 
increment any useage count. 


REQDATAP_730 implicitly assigns the direct datapath to the current transfer 
since the 730 has no buffered datapaths (i.e. datapath zero). This is 
accomplished by simply a oer to our caller, depending on the fact 

that our caller cleared CDRPSL_UBARSRCE before calling us. 


Inputs 

RG “Addr of PDT 
R5 “Addr of CDRP 

Outputs: (for REQDATAP_750 and REQDATAP_730) 
CORPSL_UBARSRCE*UBMDS$B_DATAPATH Set from PDT$B_DATAPATH. 

EQDATAP_750: 

D2 A589 BISB3 CORPSL_BCNT(RS),- RO has "OR" of low 
50 50°” a3 93 SUR Rw BOF F CRS) AO bits of BOFF and BCNT, 


Test for conguare alignment 
and integral # longwords. 
NEQ means not aligned or 


CDOCSOOCOOOSOOOCODOOCOSOOSOOOSOCOSCOSOOSCOSOSSOCSOOCOCOOOCOOOOOCOCOOOOOOOOOOOOO 
Ol cl el ae ce et ce ce ce cee ce cee ce ce a ca ce ew ee ce ca ed ce a a ed ce a a a ed ad ad a od a oh oo ood a a ad a DD 
P>PrrrrrrrrrrrrrrrrrrrrrrrrrrrrYr rPrrrrrrrrrrrrrrrrr POoOOowouowuowuy 
i—L—> be? a? of? oY ot oP ot ot ot ot et et et et ek ek ek ek et ek et ek ek et et ed eh eee) 
eh ad a ed ed ee eae a ed ed ed ee en ed a ee ee ee ee ce ce ce ed ed ee ed ed ed ee ee ed ee ee ee ee en ed ed ee ed ee ee ee ee ed ee eb De ee ee ee ed eed 


BNEQ §REQDATAP_730 


04-000" 


012A C4 
ene 
F AS 

0129 C4 
0129 C4 

F AS 

O12A C4 


012A & 
00000000 * GF 


Request and Release DATAPATH 


1AF 109 
1AF 109 
1AF 1094 
1AF 1095 
TAF 1096 REQDATAP, Bss: 
95 QIAF 109 TSTB 
12 0183 1098 BNEQ 
16 0185 109 JSB 
90 0188 1100 MOVE 
1 1101 
IC} 110 108: 
90 O1C1 11 Move 
ICs 1104 
9 01C7 1105 INCB 
05 O1CB 1106 RSB 
1€C 110 
O1CC 1108 RELDATAP_750: 
O1CC 1109 
89 O1CC 1110 BISB3 
O1CF 1111 
93 1g 1118 BITB 
01D5 111 
12. 0105 1114 BNEQ 
01D? 1115 
OID? 1116 
01D? (111 
01D? 1118 
01D7 1119 RELDATAP_8SS: 
97 0107 1120 5ECB 
12. 01DB 1121 BNEQ 
16 O1D0 11¢¢ JSB 
O1E3 11 
O1E3 1124 REQDATAP_730: 
O1E3 1125 
QIES 1126 RELDATAP_730: 
O1E3 1127 
O1ES 1128 
05 0163 1129 RSB 


aes =SEP=1984 
atte ; 


transfer ve 


7 


POTSB_BDPUSECNT (R4) 
G* 1OCSREQDATAPUDA 
5D $8_DATAPATH(R4) 
PDT$B_DATAPATH(R4) ,- 
5D $8_BDPUSECNT(R4 


CDRPSL_BCNT(RS),- 
CORPSW~BOFF (R5) .RO 
#3,R0 


REQDATAP_730 


PDT$B_BDPUSECNT(R4) 
REQDATAP 7 
G*1OCSRECDATAPUDA 


1 
0 


9 


T 
oo UBARSRCE+UBMD$B_DATAPATH( 
T 
R 
T 


PSC ea ee 3 


5:05 VAX/VMS Macro v04-00 Page 4 
7:10 CDRIVER.SRCIPUDRIVER.MAR; 1 (2) 
ea rdag | odd # of words 

aime transferred. 
Else fall thru to use pre- 


allocated datapath. 
UQport on a BUA. 
Do we have semi-perm BDP? 
NEQ implies yes. Goto use it. 
; Call to allocate a BDP. 
R5),- =; Record new semi-perm 
: P in POT. 


3; Assign semi-perm data- 
path to transfer. 

; Inc useage count. 
3; Return to caller. 


RO has ‘‘OR’’ of low 
bits of BOFF and BCNT, 

Test for conquers alignment 
and integral # longwords. 

NEQ means not aligned or 
og ge odd # of words 
eing transferred. 

Else fall thru to use pre- 
allocated datapath. 

UQport on a BUA. 

DECR useage count. 

NEQ means not end of burst. 

Release BDP after burst. 


Return to caller implicitly assignin 
direct datapath (i.e, datapath zero). 
Return to caller implicitly de-assigning 

direct datapath (i.e. datapath zero) 


; Return to caller. 


v0o~000" 
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LSBTTL INITIALIZATION 


The following table gives word offsets for fork process SCS 
; Offsets are reletiye to the address of the controller initi 


5 
t 
routine, PUSCTLINIT 


ion 


: a Sete 
+ 


; Macro to generate the table and ASSUME statements about PDT format: 


MACRO SCS_OFFSET_TAB ENTRY_LIST 
ng ahd 0 

~-IRP ENTRY ENTRY LIST 
<WORD <rPCS"ENTRY"=PUSCTLINIT> 
ASSUME SSSPREV+4 EQ PDTSL_*ENTRY' 


$ SPREV=PDTSL *ENTRY' 
CECENTRYIRRECESENTR YHOU 


No entries in table yet 

; For each entry in the List... 
insert offset from ctl init, 
and for entries after the Ist 
specify assumed PDT adjacency 


; Set previous entry as this entry 
; Step entry count 


Final PDT assumption 
Offset table terminator 


ASSUME SSSPREV+4 EQ PDTSC_SCSEND 
-WORD 0 


.ENDM SCS_OFFSET_TAB 


: Table itself: 


PUSSCSOFFSET:: 
scs <OF FSET Ee be + ; Invoke macro to define offsets 


MA - 
MAPBYPASS,- 
MAPIRPBYP,- 


RCLM GBUF, - 
REJ 


REQDATA, - 
SENDDATA, 
DG,- 


SOOSOCOSOOCSCOCOSCOCOOSOSOOSOOCOOSOCSOOOOOOCOSOOSOOCOOOOOCOOOOOOCOSOOOOOOOOOOOOoOO 
er ee Ser Se Ser er Ser er er eer re Se ner er ner ane ne ee a ae a Dane ae Pa a a a ae ae ae ee Pe ae ae ae ae ae ae ae ee er ae ee er ee er ee er ee er er er er er 
MMMM MMMM MMMM MMMM MMMM MMMM MMMM mMmmMmmmMmMMmnmMmmMmmMmmMmMmMnmmmmmmmmmrmrncrncncencvieyy 
yoy oy oe oy oe oy oy ot ot ot ot ot et et et et ee kk et kt et kt ek ek et kk ek kek ek ee 
a ee ee ee ee ee ee ee ee ee ee a a a ed 
ee ee ee ee ee ee ee a ee ee ee a a a ee ee a a a a 


©C9090909 09 0909 G9 SIND DS DDD DDD DD TTB BS BB BEE FE PE INIIAtt 
NAME WR OS OD NAUE UN $9 ONAN WN SO OD NA UNE WN OD NAN E WH OC OONOUE it 


SENDMSG,- 
SNDCNTMSG, = 


i 
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YOen O08 INITIALIZATION ets 7 8493393 DRIVER.SR RCIP UDRIVER.MAR; 1 . 
164 11 MAP,=- 
1£4 1188 READCOUNT, = 
164 11 y LSCOUNT,=- 
ife 119 mSTART = 
1£4 1198 MAINTFCN,= 
1E4 1194 SENDRGDG,=- 
1E4 1195 STOP_VCS,- 
353 4499 
119 -SBTTL + UNIT_INIT 
1198 . 
01; TBS 
: 08 : Inputs: 
0 1205 ; R3 “Address of PA configuration reg 
8 1 86 : R4 -Same as R3 
: 4 : R5 “Addr of UCB 
0 09 : Outputs: 
6 1211 : RO “Status code 
1 \§ 3 (Ss$ NORMAL. SSS_INSFMEM, or 0 if no SVPN) 
0 1213 ; R1=-R4 -Destroyed 
0 ; i 5 Other registers -Preserved 
1216 ° 
0 : 7 -ENABL LSB 
: 19 PUSUNITINIT:: 
1221 ; MOVB #0T$_UDASO,UCBSB_DEVTYPE Set the device type to UDASO 
54 AS 85 1 é TSTW UCBS@_UNIT(RS) ; is this unit 0 
06 1 0557 ; Z BEQL INIT “ciuR ; If YES, go to init controller first. 
10 AB O22? 1225 BISW #UCBSM_ONLI Wee ; Else merely set unit on Line 
64 AS 0229 1 § UCBSW_STS(R 3; and 
05 0228 1 § RSB 3; Return 
O022C 1228 -DSABL LSB 


Se 


F 10 
voce O00. + CONTROLLER INIT "Or Seen13bs 00597510 LOmIVER.caeipuoRiver.mar:1 ©2% 23 


C 0 -SBTTL + CONTROLLER INIT 


aa 


The controller initialization entry as seen b 
is a noop since initialization can't begin wi 
Actual controller init is called from unit 0 
the same inputs as unit init. 


a the system Ay: ee: 
thout the unit 
unit initietizetton with 


C i 1 
. 7% : 
E 1538 
C 1234; 
: } 5 3 
at 
: : 33 ; Inputs: 
€ 1261: R3 “Addr of PU CSR 
oe g : RS -Same a 
C 12465; RS “Addr of UCB for unit 0 
C 1244; 
at 
8 Cc (1 t3 : RO-R3 “Destroyed 
C 12468 ; Other registers -Preserved 
055¢ 1980 ° 
8 : } 2] PUSCTLINIT:: ; Controller init called by system 
05 O22c 1 3§ RSB 3; Return 


| 
| 
| 
Outputs: | 
| 
| 
| 
| 
| 
| 


voo~000" 


00000031 

06 11 
00000000°GF 16 
0084 ¢5 5 

A 1 
FE99 CF o§ 


OFBO'CF 00001E31°8F 


12BD"CF 00009031" 8F 


0 
68 25 
80 8F 

40 AS 
03 

41 AS 

33 P es a3 
BAS 01 
FE7D CF 
1C A3 


dO 


dO 


Ag 


SOSOOOOSOOOOCOOOOCOSOOCOOOOOOOOOOOOOOOOOOOOOoOO: 


SO NNNVWWID @ BPI 2 SS TMM OUI MOOV VCVC CV VVVVCCC0C00"0 


MAMA ANE REPRE RRR REE 
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+ CONTROLLER 


ted nd a a se a) 8 td tt ts ta ds tb i a as 2 a bs a 8 tt ts ts ta ts 4 a te a tt 


uw 


SSNS SSSA PAA AAA AOI 


WONA UE WIN O OONAUE UO OOO 


Controller initialization called from unit 0 init. 


: Inputs: 
: RS “UCB address 
: Outputs: 
3 RO “Status code 
3 (SS$_NORMAL ,SS$_INSFMEM, or 0 if no SVPN) 
BRW_OPCODE=*x31 ; Opcode of BRW instruction, used in 
3 concocting PATCH below. 
eenabl tsb 
INIT_CTLR:: 
BRB 0$ 3; Branch around breakpoint. 
0s: JSB G* INISBRK ; Breakpoint for debugging. 
‘ TSTL UCBSL_PDT(RS) : See if first time thru here. 
BNEQ POWER_INIT 3; NEQ implies this is POWER FAILURE. 
TSTL PUSL. TRACE VARIABLE 3 See if any tracing requested. 
BEQL 5 ; EQL implies NO tracing. 


3; Here if tracing has been enabled. There are two places in the inline code 
3; where we would Like to trace; once in Send Sequence message, and once when 
; Socete ng a message. In order to accomplish this, we here dynamically 

3 patch a BRW instruction into the two appropriate locations. 


MOVL #BRW_OPCODE!- 3; If tracing enabled, patch code 
<ENABLE_COMMAND_OFFSET@8>,- ; into Send Message Logic to trace 
W*ENABLE_COMMAND_START 3 outgoing message. 

MOVL #BRW_OPCODE !- ; Here patch code into Receive Logic 
<ENABLE RESPONSE _OFFSET@8>,-; to trace received message. 
W*ENABLE_RESPONSE_START 


BISW #UCBSM_PU_FRKBSY,=- 


; Indicate the UCB fork block is in 
UCB$W_BevSTS(R5) 


; use. Setting this bit defers processing 
3 powerfailure recovery until after 

3; initialization completes. 

IOF ORK ; Lower IPL. 

REQPCHAN ; Permanently allocate channel. 

MOVB #0C$_BuUS : Initialize constant UCB fields. 


UCBSB_DEVCLASS(RS) 
MOVB #0T$_UQPORT,- 3 Type of UQPORT will be determined 
UCBSB_DEVTYPE (RS) : later. 


3: Initialize CRB wakeup mechanism. 


MOVL ucBst GRB(RS) R3 ; R3 => CRB. 
MOVL  R5,CRESL_AUXSTRUC(R3) ; CRB => UCB as auxillary structure. 
MNEGL #1, CRBSL~DUETIME(R3) > Set infinite time. 
MOVAB NULL ROUTINE ,- 
CRBSC_TOUTROUT(R3) ; Imocuous routine for now. 


0 
INIT "Or See= ibe 00:47:10 LOMIVER.caeioubRiver.mar;1 “2% 29). 
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1g JSB G* 1OCSTHREADCRB 3; Put CRB on wakeup List. 
14 BSBW BUILD_PDT 3; Allocate and fill in PDT. 
15 BLBC FR ; Return error status to gatlor. 
16 BSBW «= s INE T_UDA_BUFFERS ; Map area in PDT containing buffers. 
1 BLBC RO,1 3; Return error status to caller. 
18 BSBW «= s IN T_INIT_STEPS : Initialize values in UCB to use 
1 : _in UDA hardware initialization. 
0 BLBC RO,15$ 3; Return error status to caller. 
1 BSBwW BUILD_PB_sB ; ye ah in system block and 
3 pa ock. 
5 108: BLBC RO,15$ 3 Return error status to caller. 
5 \ MOVB #NO_CONSEC_INITS,=- 3 Initialize UCB field that counts 
$ UCBSB_INITCNT (R55 : hardware init retries. 
8 BSBW HARDWARE _INIT : Init UDA hardware. 
BLBC 15$ ; LBC implies couldn't Init hardware. 
0 BSBW ATE_PB 3; Update fields in the Path and System block 
1 BISW BUCeSR Out INE. 3: After hardware init, we are online. 
: BSBW POLL_RSPRING ; This call has the effect of clearing 
4 3; the UCBSM_PU_FRKBSY bit in 
5 3 UCBSW_DEVSTS” and also of finding any 
g 3 responses that my | have backed up 
: due to the bit's having been set. 
S 158: MOVL #SS$_NORMAL ,RO ; Set return code. 
40 °~——~“its«éRSWG 
41 
4¢ POWER_INIT: 
44 BBCS #UCBSV_PU_FRKBSY,- 3 ao gts UCB fork block if free, 
45 UCB$W_BEvSTS(R5) ,20$ : else continue and RSB. 
£6 RSB 3; If fork block busy. relie on 
4 : Interrupt Service Routine to GOTO 
48 ; POST_POWER_FORK. 
49 208: 
50 I1OF ORK 3; Lower IPL so as to continue with 
3) 3; _signaling SYSAPS that the VC fell. 
§ BRB 30$ : Branch around Fork block appropriation. 
33 POST_POWER_FORK: 
38 ; Here we turn off CRB wakeup mechanism. 
3$ MOVL UCBSL_CRB(R5) RO ; RO => CRB. 
38 MNEGL #1,CRBSL_DUETIME(RO)  : Set infinite time. 
5 MOVAB nth ROUTINE ,- 
r$ CRBSC_TOUTROUT (RO) ; Imocuous routine for now. 
$¢ BBCS #UCBSV_PU_FRKBSY,- 3 Aporepe late the UCB fork block if NOT 
UCBSW_BEVSTS(RS) ,30$ ; _busy and branch around. 
64 BISwW #UCBSA_PU peat set. : Indicate that whoever has fork block 
65 UCBSW_BEvVSTS(R5) : busy, should reset upon wakeup. 
66 30s RSB ; Return to caller to kill thread. 
68°  BICW  #UCBSM_PU_MRESET,- : Clear bit possibly set above. 


I 10 
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68 AS DD 1 $9 UCBSW_DEVSTS(R5) 
of ! 4 BICW mucosa oul INE i= ; If hore we are not online, setae henthed 
- + an e power failure is being han 
64 a5 30 EQ 137 utesu STSCRSS aes ° . 
E3 1374 
: ! o 3; Here we call the CONNECTION error routine for each connection. 
53 03 00 ; : 60s MOVL #3,R3 ; R3 = highest possible connection index. 
54 0084 D0 3 1 ig : OVL \ BSL_PDT(RS) ,R4 : R4 => PDT. 
0D eB 1 9 PUSHL 3 ae £ nnect ion index. 
DD ED 1 PUSHL 3; Sav ucB. 
53 O0E4 C44 b0 EF 1 § MOVL rors, PU_CDTARY(R4)CR3],R3 $8 <* 7 . 
oc 8 16 FS 1 JSB aCDT$C_ERRADDR(R3) + Call connection error routine. 
F 1384 3 NOTE: that for closed connections, 
F 1385 3; the error routine is the NULL 
FB 1 $ 3 _one that is _ Just an RSB. 
: 8EDO FB 1 POPL 1 3; Restore RS => UCB. 
8ED0 FB 1388 POPL fp 3; Restore R3 = Pe index. 
—e5 5 F4 FE 1389 SOBGEO R3,40$ 3; Loop thru all possible indices. 
99 ~«#«221 01 1390 BRB 10$ ; Branch back to re-init port. 
0303 1391 -dsabl Lsb 


J 10 | 
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l 
-SBTTL + Build PDT | 


+ 
BUILD_PDT = allocate and fill in non variable data in the UDA port PDT. 
This routine has processor dependent code to separate code streams for 
; uVAX I ports. and for all other systems. The uVAX I needs special 
; treatment for various reasons. 


1. First, for uVAX I, the communications area, the buffers, and the 
Pseudo Map Registers (these are not needed at all for other systems) 
must all be in grveren: ty cont iguous menety pages. To accomodate 
this, for uVAX I we allocate the entire PDT in physically 
contiguous memory. 


~ 
> 


Second, the base of the Pseudo Map Regiegere must be on a page 
boundary. To accomodate this need, the first four pages of the 
contiguous region we allocate for the PDT is used for this purpose. 
A pointer to this region is left in PDTSL_PQ_MAP. 


WN 
. 


| 
| 
| 

For uVAX I, the communications area must not straddle a 64KB 

boundary. Currently, the communicatons area is much Less 

than a page in len th and if it can be shown that the communications 

area does not straddle a page ope tf this would be sufficient 

to show that it does not straddle a 64KB boundary. Since the PDT 

is located on a page boundary, we determine the byte offset of the 

base of the communications area (symbol COMAREA_BOFF). 


COMAREA_BOFF = PDTSL_COMAREA & 511 


This allows us to establish am ASSUME statement that proves 
that the communications area does not straddle a page boundary. 


ASSUME COMAREA_BOF F +PDTSC_COMAREALN LE 512 
Future changes to the PDT might break this ASSUME, and a possible 


Re-errengeaens of the Layout of the PDT would be called for at that 
me. 


00000000 


inally, the routines that implement SCS functions "MAP_IRP"’ and 
"UNMAP" are different on uVAX I systems, so therefore the PDT 
MO ag vectors for these functions are treated separately for 
u . 


OOOCCOCOCOCOOSOCOOOSCSOOOCOOOOOCOOoOOoO 


Oooo: 
WNA AAA AIA AAA AIA AAAI AIA AIAN AAAI AAI AAAI IWIN NIWA AANA AIA AAAI AAAI 


Inputs: 
RS “Addr of UCB 


OOQGOOOQOCOCOSOSOSOSOSOOSOSOSOSSSOSSGCOOCOOSOCSOSOSOOCOOOOOOOOOCOOOOOooOO 


HAAN AAA AAA AAAI AAAI AAAI NINN AANA AAAI AAAI AIA AAA AAI AAAI 


Outputs: 
RO “Status code (SS$_NORMAL ,SS$_INSFMEM) 


| 
: PDT adjacency assumptions: 


ASSUME PDT$W_SIZE 
ASSUME PDT$W7SIZE+2 


ee ce ce ce me ee ee ee ec ee ee ee ee ed ed dd od od dd od — 3-3 3 3 

SS ee ee et oe ee oe et oe oe oe od oe oe oe oe oe oe ee oe ee ee oe ee ee ee ee ee ee oe ee ee 

BERR EE EES FUN WIWIWIWIAIRPROPOPOPONONONNY BQO OOCOOOOO 0000000 

OWONOAU EWN O DONAUE WN SO OO NAUEWN OOD NAMES WN HOD DNAMNEWNODONOULW 
ees 


EQ 8 | 
EQ PDTS$B_TYPE | 


| 
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ASSUME PDTS$B_TYPE+1 EQ PDT$B_SUBTYP 

ASSUME PDTSB_SUBTYP+1 EQ PDT $C"SCSBASE 
eenabl Lsb 
BUILD_PDT: 
CPUDISP <<780,ALLOC_PDT_NOTUV1>,= i Dispatch to allocate a CPU depende 
<750,ALLOC— PDT “NOTUV1>, - ; sized PDT. 
pit *ALLOC “PDT “NOTUVI>, © 
<7 * ALL LOc~ “PDT. NOTUV1>,=- 


: V1, ALLOC_PDT_ VID. - 
<8SS ,ALLOC-PDT~ S$>,- 


a2 


50 $s AS 00 
50 8 AO 00 
OE A 01 861 

04 13 


51 0C94 BF 3C 


955 30 
23. 50 8 
0138 1 
00001000 
00000008 
51 08 00 
00000000°GF 16 
03 50 gs 
0129 1 
0 2 

nf 
BA 
51 1000 8F 80 


ALLOC_PDT_8SS: 


3; See if we are on a UNIBUS adapter 


a he UCBSL_CRB(RS) ,.R 


cR RBSL 
$08 A 


“fre oeueese ADP(RO) 


BEOL Alot Bot _NOTUN1 


Till t 
BUG! CHECK 


UDAPORT , FATAL 


RO : RO => 
ADPS$W gADPTYPE CRO) 


or else ona 
RO => CRB. 


ADP. 
; See if on UNIBUS adapter. 
:; If yes, branch. 


Here 4 Ds be on a BDA. Appropriate code may one day be placed here. 


AAA N NINN NINA ANNA ANNI AINA AAAI AIAINI AAAI AAAI AIAN 


PUTT B® BB BB EB EAI AAAI AIA ID PININIPININININININDY 2 2 | “QOOOCOOOOCOOOCOCOO 


TSWOOUVMIMO OM OKOOCOST SSF S99 FSF SVL LVBABAMNNDW WD OM" 9 9 99 OWN 
a a tk a a a a a a a a a kd dt dt dd 
PUPP B® BS Be BB BP PPE PEPE PPP PPP PPP PPP PPP PPP PPP PPP PPP PEE EES 

FW 9 OD NAUE WIN SO OD NAME WN 9 OD NOAUEW OC ODNOUES WO 


BDODOOOOO OOOO OO OO O69 69 69 69 09 69 09 0909 SI NINN SSN PAA AAA AAA A MMIII 


: 
& 


WIWWNAIAAI AANA AAA NWI WWI 


OMEN OO0ONOu 


ALLOC_PDT_NOTUV1: 
MOVZWL #PDTSC_PULENGTH,R1 
BSBW ALLOC POOL 
BLBS 0,208 
BRW F068 
ALLOC_PDT_UV1: 


: oO pacaaas PDT size needed for other 


3; Allocate R1 bytes from pool 
; Branch if success to common code. 
; Else goto return error 

3; UVAX I needs physically cont tquous 
3 memory Long enough for the ma 

; registers (4 pages) and the PDT. 


UV1_PDT_LENGTH = <PDTS$C “UUNGENCY S12): & <*c511> 


UV1=PDT=PAGES = UV1_PDT“LENGTH / 
MOVL § #UV1_PDT_PAGES,R1 


JSB SLE RE SAL OPurcHTS 
RO,10$ 


— 
So 
bad 


PUSHR #*M<RO,R1,R2,R3,R4,R5> 
MOVCS “(SPS #0 ,- 
#<0V1_POT_PAGES>*512,- 
POPR #*M<RO.R1,R2.R3,R4,R5> 
MOVW  #UV1_PDT_LENGTH,R1 


~m 
So 
ad 


: Pages needed for uVAX I PDT. 
3 W} gentates pages needed for uVAX | 


; Allocate physically contiguous memory. 
; LBS means successful allocation. 

; Else goto error return. 

» Save MOVC registers 

; Zero initialize structure 

; Restore MOVC registers 


; Set size of uVAX I PDT into R1. 
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MOVL Re - UCB SL T(RS) 3; Save PDT: addr 

MOVL R5,POTSL_U 90 ¢? : PDT => UCB. 

MOVL ucése CRBC : Get CRB addr 
1 MOVL R2,CRBSL_AUXSTRUC(R3) ; and save PDT addr in CRB 
1 CLRO 3s (RE) + : Init PDT, unused longwds 
1 MOVW #PDTSM_SNGLHOST,=- : Indicate port to singts host bus, (-8 
1 POT$W_PORTCHAR-8(R2) 3 _takes into account (R2)+ above). 
1 MOVB #PDTSC_PU,- 3; Indicate type of PDT created, (-8 
} PDTS$B_PDT_TYPE-8(R2) ¢ takes into account (R2)+ above). 
1 ASSUME PDT$W_SIZE EQ 8 

82 51 B0 1 MOV R1,(R2)¢ 3; POT size, 


ASSUME PDTS$B_TYPE EQ 10 
ASSUME PDT$B SUBTYP Q 11 
82 0560 8F B60 MOVW #<DYNSC_SCS_PDT@8 + DYNSC_SCS>,(R2)+ ; structure subtype and type 


53 30 A3 00 MOVL CRBSL_INTD+VECSL_INITIAL(R3),R3 ; Get addr of controller 


PS SP OOO0O00O00O0WW 0090909090908 SIN NNN NNO 
NFL IM SD NNW OS PD PD BMI S| MOOMOOVOONWA 


oo 
oo 
ous 
Own 
> Ao 
Ww rw 
nn” 7" ~ 
nn" Oo = 
ror vw 
frororo 
3 @ o 
SOnoocoo 
ag Sy ape te eee eye net gaat enatanenanatenet ee we 4 
~wrUCO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
15 
15 
15 
gH 
6 15 ; init routine 
51 FESB CF SE O 15 MOVAW PUSSCSOFFSET,R1 ; Get addr of table of offsets 
0 13 : to SCS entries in PUDRIVER 
50 81 3 6 1529 30S: CVTWL = (R11) +, RO ; Get offset to next SCS routine 
06 13 O 15 BEQL 40$ : Branch if no more 
Ss. @ ww 8 @ 15 ADDL3 = RO,R3,(R2)+ 3; Add offset from controller init 
0 15 3; to addr of controller init 
0 15 3; and store in PDT 
3; Get next offse 
sS 8 @ 15 RG 30$ Get t offset 
b 133 40s 
51 0084 C5 pd 0 15 MOVL UCBSL_PDT(R5S) ,R1 : R1 => PDT. 
50 $3 AS dd 0 153 MOVL UCBSL_CRB(R5) ,RO ; RO => CRB. 
8 D0 0 153 MOVL  § CRBSL-INTD+VECSL_ADP(RO) ,- : Save ADP address in PDT. 
OOEO C1 0 154 PDTSL_ADP(R1) 
0 154 ASSUME IDBSL_CSR EQ 0 
0185 3 dO 3 : 182 MOVL acrest a4) +) eee ; Save CSR addr in PDT. 
ooBcC C1 FEOO BF 3C S3aA 154 MOVZWL #<127#512>, - : Define maximum byte count supported 
= : for block transfers as ocks. 
o38 1345 PDTSL_MAXBCNT(R1) for block transf 127 block 
1 1547 
$38] 1368 CPUDISP <<780,NO_OVERLAYMAP>,- ; Dispatch around qverlozing of MAP 
0381 154 <750,NO_OVERLAYMAP>,- ; and UNMAP pointers uVAX I. 
1 #1 29 ak un-teket armen a 
1 1551 <790,NO_OVERLAYMAP>,=- 
i 25 <UV1,OVERLAYMAP>,=- 
1 155 <8SS -OVERLAYMAP_8SS>,- 
ne 
cB 1 28 OVERLAYMAP_8SS: : If on a UNIBUS adapter, goto 
CB 13 ; _NO_OVERLAYMAP. 
50 0O0E0 fl d0 cB 1 28 MOVL PDT$L_ADP(R1),RO 3; RO => ADP. 
1 #61 DO 155 CMPW 7 - 3; See if on UNIBUS adapter. 
OE AO D2 1560 ADP$Q_ADPTYPE (RO) 
1A 13 + ' ] BEQL NO_OVERLAYMAP 3; EQL implies UNIBUS adapter. 
D6 1388 ; For the BDA port the MAPIRP and UNMAPIRP functions are distinct. 


112F ‘CF 
4 Al 
118D' CF 
64 Al 


bad 3 4 
1162°CF 
64 Al 


MMRMRNOT"OMmMmom 
UMS OWWw=NUIU00 
AQOQQQOOAQMQAOO 
Sens is Ba Be a Be Ba a 


MMi 
oooo™ 


FCA8 CF 


3F 


28 AS 
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9E 
9E 
11 


9E 
9E 


19 
14 


dO 


ODOCOCOCOSOOSOOSOOOOOOCOOCOOoOoOooOO 
BERR PR REPRE EE PW 


oo 
r~ 


o 
PRR R RRR RRR RRR RE 
eee ee ee cee ce me me me ee ee ee ee ee ee ee ed dd od ed od = 2 Sd 3 Sd 3 dS 3 = 


SOOO MEAN @§ OOD NAUNE WIN SOD NAVE WIN SO OD NAUE AN SO OO NOAU EWN OOOO 


PUPP PUPS Nl at tt OED 
Wee OOOO 


MOVAB 
MOVAB 
BRB 


OVERLAYMAP: 


3; For the uVAX I Q-BUS 
Here we overlay the 


MOVAB 
MOVAB 


NO_OVERLAYMAP: 
; Init NULL CDT 


MOVAB 
MOVAB 
MOVAB 
MOVAB 
MOVAB 


" BLSS 


BGTR 


MOVL 


FA are jo BDA,- 
PDTSL_MAPIRPTR1) 
ye CSUNA MAP 
POTSL UNMAPTRID 
NO_OVERLAYMAP 


with addresses of message 


NULL_MSG_INPU 

NULL~ =corseprs; “MSGINPUT 
NULL_ 

NULL =EDTECOTSC DGINPUT 


NULL ~ 
NULL_ “COTFCDTSL ~ERRADDR 


 b0:t7:10 t 


NULL-CDT+CDTSL_CRWAITOQFL,- 


NULL_CDT+CDTSL_CRWAI TQBL 
: Init COT pointers to all point to NULL CDT. 
pyUt CDOT,RO 


RO, petit -py- VESSS¢R1) 
PUSL_TRACE_VARIABLE ,#1 


90$ 
80$ 


UCBSL_DDB(RS) ,R1 


AX/VMS Macro V04-00 
DRIVER. SRCJPUDRIVER.MAR; 1 


Here we overlay the PDT dispatch vectors for these functions. 

; oe PDT dispatch vector for MAPIRP 
| everie PDT dispatch vector for UNMAP 
; Branch around to join common code. 


Page 38, 


he MAPIRP and UNMAPIRP functions are distinct. 
DT dispatch vectors for these functions. 


w*FPCSMAPIRP_UV1,- 

POTS. MAPIRPTR1) 
“FPCSUNMAP_UV1,- 

Borst _UNMAPTR1) - 


PDT dispatch vector for MAPIRP 


Re 
x ¢ ® dispatch vector for UNMAP 


and datagram input routines. 


ty H of message input 

ro 

; Address of datagram input 
routin 


: S address of error routine. 
; Init dummy List header. 


RO => NULL COT. 


NULL C 
pointer => NULL CDT. 


sc what nine (if any) tracing 


ed. 0 implies no tracing, 


1 implies only, ory, to a Locate 
resources for ' trac ng 
implies + ll 1, try to a me 


LSS implies 0, so branch around since 
we want no racing. 

lies 2, so Branch around to try 
to allocate trace tables. 


If here we only want ‘PT’ tracing, 
hen test for a 
f not there, Srenah around, 

; R1 => DDB. See if ‘PU’ or ‘'PT’’ device 


“PT port and 


wiiihlehccinaplininetheesiiaciteahaaicanitctiinemetiiatateiei ) 


N 10 
vou000" + Build PDT "Ore ee 1986 80:17:40 LORIVER. rape vermar:1 2% 35, 


16 Al 54 of 7} 2 1 CMPB #*A/T/ ,DDBST_NAME+2(R1) ; Test for ‘'T’’ in name 
2 12 Q436 1 BNEQ 90% ; Since we want to trace ‘'PT’’ only, 
22 12 Z 0s : if NOT ‘'PT’’ then branch around. 
51 000088 4 440 1625 MOVL #500*96+16,R1 ; Allocate trace table for 500 entries. 
50863 447 16 § BSBW ALL OE POOL 3; Call to allocate. 
E rey 19 BLBC RO,908 : LBC implies failure. 
50 0084 ¢5 00 0440 16 ; MOVL -UCBSL_PDT(RS),RO ; RO => POT. | 
3 _check. 
2. ret 1631 CLROQ (R2)+ - 3; Initialize trace table header for SDA. 
44 8 454 16 § MOVW R1,(R2)+ $ seve size. | 
82 60 8F 8B 457 16 MOVW ep rnse SCS, (R2)+ : Type 
D4 045C 1634 CLRL se CR + Round header upto 16 byte boundary. 
‘ oc8s co dO 136 1635 MOVL : *PDTSL. TRTABLE (RO) 3 Save pointer to base of trace tab e. 
oc8c CO. lS dO 838 1936 MOVL *PDT$L-TRIBLPTR(RO) 3; Pointer to next area to use 
0c90 cO.)63=—6s« S2.—si—«éwOBBBO BF 6C1 OC4K6B C16 ADDL3 ; 0*96,R2,- 3; Pointer to beyond end of trace 
0472 1638 POTSL TRTBLEND(ROD ; table. 
0472 1639 90$: 
50 01 dO 0472 1640 MOVL S“#SS$_NORMAL ,RO ; Return success. 
047 1641 100$: 
05 0475 1986 RSB 
0476 164 -dsabl lsb 


2 eee eee 


B 11 
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rh -SBTTL + TRACE_COMMAND and TRACE_RESPONSE 
47 ; Routines to record command and response buffer contents in the trace table. 
476 ; Trace table entries are 96 bytes long so that they Line up nicely in 
476 § @ dump. 
arg 30 
476 TRACE_COMMAND : : INPUTS: R2 => Command buffer, 
hh 3 R4 => PDT. 
43 50 7D $78 MOVQ RO,-(SP) 3; Save RO and R1. 
5 52 00 047 MOVL ; RO => buffer to trace. 
06 «11 Bere BRB TRACE_COMMON ; Branch around to common code. 
47E TRACE RESPONSE : ; INPUTS: R3 => Response buffer, 
rf : R4 => PDT. 
7E 29 7D pees mova RO,-(SP) 3 Save RO and R1. 
50.) «65 dO tH MOVL R3,R0 ; RO => buffer to trace. 
pegs TRACE_COMMON: 
Oc8B8 C4 0 0484 TSTL PDTS$L_TRTABLE (R4) ; Test for existence of trace table. 
pees BEQL 30$ ; EQL implies unable to allocate table. 
048A DSBINT Prevent interrupts during allocation 


of trace table entry. 


t=) 

= 

~o 

Oo 
em ee aed ad od — — — — — —  — — — — — — — 3 2 2 3 
DEAE AAAAAAASAAAA AA AAAAAAAAAAAAA AAAS AAO AAA AAOAO OA AAOSAOSOOAAS 
WOOO OOO O00 09 09 09 09 09 09 09 08 SIN NS NSN DPD PDD AAA AD ITU 


NAME AN @§ 9S OD NAME WIN SO OD NOAU EWN 0 OO NAME WIN O OD NAUE WIN OOONOU 


51 OC8C C4 00 0490 MOVL PDTSL_TRTBLPTR(R4),R1 |; R1 => area in trace table to use. 
51 0C90 C4 D1 0495 CMPL PDTSL_TRIBLEND(R4),R1 ; See if we should circle back to start 
049A ; of trace table. 
05 14 OQ49A BGTR 208 ; GTR implies NO. 
51 0c8s8 cs 00 Bees 208 MOVL PDTSL_TRTABLE(R4) ,R1 ; R1 => base of trace table. 
oc8c c4~— #1 00000060 8F C1 Q4A1 ADDL3 #96,R1,PDT$L_TRIBLPTR(R4); Point to next entry. 
04AB ENBINT : ; Undo DSBINT. 
81 80 7D O4AE MOVQ (RO)+, (R194 ; Twelve long words are 96 bytes. 
81 80 7D 0481 MOVQ (RO)+,(R1)¢ 
81 80 7D 0484 mOVQ (RO)+,(R1)+ 
81 80 7D 0487 mOva (RO)+,(R1)+ 
81 80 7D OQ4BA mOva (RO)+,(R1)+ 
81 0 7D 0Q48D mOVa (RO)+,(R1)+ 
81 0 7D et: mMOVa (RO)+,(R1)+ 
81 0 7D O4C MOVQ (RO)+,(R1)+ 
1 . 7D ote MOva hath Ea 
1 70 Cc MOVQ (RO)+,(R1)+ 
1. 6€ 7D O4CC mova = (SP), (R1)4 ; Trace saved RO, R1. 
81 08 AE DO O4CF MOVL 8(SP5,(R1)+ : Also trace caller's return point. 
50 ot $4 C4 «OD rt MOVL PDT$L_UCBO(R4) ,RO 3; RO => UCB. ; , 
FC Al 0088 CO 6C 4D SUBL UCBSL_DDT(RO) ,-4(R1) ; Make traced return point relative. 
os. rt 30s MNEGL #1,(RT)+ : Flag marks end of trace entry. 
50 8E& 7D OQ4E1 MOVa (SP)+,RO ; Restore RO and R1. 
05 04E4 RSB 


PUD! 
V04: 


cm | 
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~SBTTL + INIT_UDA_BUFFERS 


+ 
INIT_UDA_BUFFERS = accomplishes the following: 


1. It fills in UCBSW_PU_BCNT, UCBS$W_PU_BOFF and UCBSL_PU_SVAPTE and clears 
C INTD+VECSQ_MAPREG. It then copies them to OCB$W _BCNT, 

“BOFF and UCBSL_SVAPTE so that the standard UNIBOS 

map register allocation routine will allocate enough 

of these map registers to map the area located at 

PDTSL_COMAREA which is PDTSC_RINGLEN Long. 

It then calls IOCSALOUBMAPRM to permanently allocate 


RBSL_ 
UCBSW 


the oop registers. The value left in UcBSL PU_SVAPTE, along 
with the values left in CRBSL_INTD+VECSwW_MAPREG by 

IOCSALOUBMAPRM, allow the later loading of the allocated 

map registers. (Note the map registers are loaded at 
intialization time and after every reset of the port.) 


: 2. It —_— the UNIBUS gir ivel address of the text portion 
; virtual address in the low order 18 bits of the buffer 


BPP PEPE PEPE PPP PE EEE EEE 1 


COOOMMMM MMM MM MMMM MMMM MMMMMMMmMmMmMmMmmmmMmmmmmmmmrmmncnenenicricviciery 


polo leolole lolol elelolololola) 
DOLL DD DD \ \ KP LP. MMMM PPV Pau PVP PvPv PVPs sve svesves 


header, at offset UDABSL_DESCRIP. The UDA and 
M_FLAG bits are also-set on in UDABSL_DESCRIP so 


1699 
1700 
18 
1708 
1704 
1702 
1707 
1709 
1710 
1711 
ar 
171 
1714 
1715 
1218 
171 
1718 
Ht 
1731 UDA 
04 17 ¢ that this value can now be moved directly into a co 
04 7s slot (be it command or response ring) to effect the transfer 
8 \? : of this buffer to the port. 
04 1558 Inputs: 
04 1727 R5 -Addr of UCB | 
04 1728 
® | 
04 1798 ; Outputs: 
04 1730 RO “Status code (SS$_NORMAL or 0 if no SVPN) 
3 ey S ae spostreved | 
0. § -Preserve 
bees 1784 | 
be Hey) -enabl Lsb 
ne Viet INIT_UDA_BUF FERS: 
54 0084 C5 0d Oe 17) MOVL UCBSL_PDT(R5) ,R4 ; R4& => PDT. 
04 1741 CPUDISP <<780,COM_INIT_UDA_BUFS>,- ; Dispatch to allow special 
8 1766 $338 - COM INIT UDA BUF 82 = 3: casing of uVAX I. 
SEA 174 <730,COM- INI T-UDA_BUF S>,- 
04 1744 <790,COM_INIT_UDA_B = 
4 1745 Suv INITUDA_BUFS_ V1>,- 
4 1068 <8SS, INIT_UDA_BUFS_8SS>,- 
She 1748 / 
5 1749 INIT_UDA_BUFS_8SS: 
50 0060 C4 00 O05 1750 AOVL PDTSL_ADP(R4) ,RO ; RO => ADP. 
oy 1751 CMPW é BA,- 3; See if on UNIBUS adapter. 
OE Ag 5 1736 ADP$Q_ADPTYPE (RO) 
0 13 0500 175 BEQL COM_IRIT_UDA_BUFS ; EQL implies UNIBUS adapter. 
01BD 631 44 Hae BRW INIT_BDA_BUFS ; Else branch to init BDA buffers. 


D 11 
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51 7 § COM_INIT_UDA_BUFS: | 
3} 17 8 : Initialize fields in UCB so as to allow standard IOSUBNPAG routines | 
2} 1723 3 to allocate MAP registers. 
Og¢ of B0 H 170) MOVW UcBse PULBenT CRS 3; Length of area to map. 
00c0 ¢5 2g 020 My + 212 1768 sy pee pot SL ORAREACRA) R2 3; R2 => area to map. 
526 1765 ycesy PU Re FFF CRS) ; Get offset of area to map. 
09 #=EF OS 8 1766 EXTZV yt PN,- 
5 15 5 176 - AVASS pvene 7R2,R2 R2 = virtual page # of area. 
50  G0000000'GF oO 05 1768 MOVL G-AnGser set BASE ,RO RO => system page table. | 
oospc cS) «6 6042_~CséN#~E: ; 179) MOVAL (RO)CR -jtest “PU. Svaprein 
538 (1771 | 
53 3 AS DO 0538 12778 MOVL UCBSL_CRB(RS).R > CRB. 
4 A3 D4 053C 177 CLRL = CRBSL- Re osuetse LMAPREG CAS) 
OS3F 1774 : Initialize to direct datapath (0). 
OS3F 1775 CPUDISP <<780,DATAPATH_780>,- : Label of VAX-11/780 specific code. 
O53F 1776 <7 0. DATAPATH-7 0>;- $3 Label of VAX-11/750 specific code. 
OS3F 177 <730,DATAPATH_730>,- ; Label of VAX-11/730 specific code. 
O53F 1778 <790,DATAPATH_790>,- ; Label of VAX-11/790 specific code. 
ete 144 _ «855. »DATAPATH_8SS>,- ; Label of VAX-11/8SS specific code. | 
0555 1781 DATAPATH_8SS: 
FCS6 CF 9E 0555 1786 MOVAB REQDATAP_8SS,- ; Overlay transfer vector when running | 
FC4O CF 0559 178 REQDATAPATH fv + on a VAX-11/8SS. 
FC77 CF 9E O55C 1784 MOVAB RELDATAP_8S ; Overla kroneier vector when running 
FC3D CF 056 1785 RELDATAPATN fv ; on 8 VAN~1 
= 3203 1738 BRB DATAPATH_780 3 And day sh | 
0365 1788 DATAPATH_750: 
FC3B CF 69& 0565 1789 MOVAB REQDATAP_750,- ; Overlay transfer vector when running 
FC30 CF 0569 1790 REQDATAPATH. fv : “on a VAX-11/750. | 
FCSC CF 9E& O56C 1791 MOVAB RELDATAP_750,- ; Overlay transfer vector when running | 
FC2D CF 057 1798 RELDATAPATA fv $ on a VAX-11/750. 
OE 11 O3¢ 129? BRB DATAPATH_780 3; And branch around. 
tt4 1795 DATAPATH_730: 
FC6A CF 9E 0575 1796 MOVAB REQDATAP_730,- 3 Overlay transier vector when running 
FC20 CF 0579 1797 REQDATAPATH fv : ona 1/7 
FC63 CF }8=699E «=6(057C «(1798 MOVAB RELDA 730,- ; Over Lay transfer vector when running 
FCID CF i 1799 RELDATAPATAL tv : on a VAX-11/730. Then fall thru. 
5 1 4 DATAPATH_780: 
05 1 § DATAPATH. 79 pot 11/790 mimics the 11/780. 
583 180 KSSUME PDT$B_BDPUSECNT EQ PoTsB_ DATAPATH+1 
0129 ¢4 «=6B4 OOS ! Be ceRU PDTS$B_DATAPATH(R4) tg # of semi-perm BDP and use count. 
37 AS 94 : \ 36 CLRB CRBSL susie Sebedaneielt ; Clear CRB field. 
58A 1 o8 ASSUME UCBS$W_BOFF EQ UCBSL_ beady +h 
SBA 1 ASSUME UCBSW"BCNT EQ UCBSW_BOF F 
: A 1810 ASSUME UCB Su PU_BOF F EQ UCBSL~ PUL SVAPT +4 
2 . : 1 ASSUME UCBSW- PU- _BCNT EQ UCBSU~ PU~BOF F + 
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0 C 7D MOVa UCBSL_PU sree Tg (5) «= ; Copy parameters to standard 
a UCBSL- SVAPTE(R5) ; _locations. 
00000000'GF 16 JSB G* LOCSALOUBMAPRM ; Permanently allocate map registers. 


3; Here calculate the UNIBUS virtual address of each buffer. 


i 

96 

$ 

50 00g? 2 36 MOVZWL UCBSW_PU_BOFF(RS),RO 3 Byte offset of mapped area. 
51 4 AS MOVL UCBSL_CRB(R5),R1 ; RI => CRB : 

50 09 09 34 Al FO INSV CRBSL_INTD+VECSW_MAPREG(R1) ,#9,49,R0 ; RO contains UNIBUS 


; VA of base of area. 


MOVL  UCBSL_CRB(RS) ,R3 :_R3 => CRB. 
CLRL —- CRBSLINTD+VECSW_MAPREG(R3) 


: Initialize to direct datapath (0). 


To use the common allocate/deallocate map register routines, the ADPSL_CSR 
field in the Qbus adapter control block must be set to point to a base address 
such that the geende map registers outer ing in the PDT appear at the UBASL_MAP 
offset from this base address. Currently the SVAPTEs allocated at the time 
the adapter is initialized (INIADP) point to non-existant memory addresses. 
soeee myst instead point to the 4 pages of map entries allocated as part 

° e . 


BBSS #MAPSV_MAPREGS,- ; Ensure that we use only one set of 
PUSL_DRIVER_STS,- ; “map registers’, gets mapped into 


E2 


1 
1 
1 
1 
1 
1 
1 
98 
oF 
oF 
7 
50 oD ns PUSHL RO 3; Save on stack. 
50 D4 4 CLRL RO 3: Initialize loop counter. 
51 029 C4 9E $ Ag MOVAB PDTSL_PU_BUFARY*UDABST_TEXT(R4),R1 ; Rl => text portion 
8 . 3) ss ; of first buffer. 
OSAE S2 3 ASSUME UDABS$B_BUFFNO+1 is Reserved byte. 
F6 Al 50 98 OSA 3 MOVZBW RO, UDAB$B_BUF FNO-UDABS$T_TEXT(R1); Store index of this 
8 B 3 : buffer in its header. 
EC Al 9E 8 3 MOVAB -UDABST_TEXT(R1),- ; Point Buffer table array 
014¢ C440 058 3 PDT$L_BBTABLE(R45SCROJ : element to this buffer. 
28 0200 ¢6 9& 0589 183 MOVA PDTSL_COMAREA(R4) ,R2 3; R2 => base of mapped area. 
5 a”. 2S ee S3 SUBL R2,R1,R2 3; R2 = offset of this buffer 
05¢ : from base of mopped area. 
meat de 6 ct gC 84 ADDL3 (SP),R2,- : Calculate UNIBUS VA of this 
0 cf 84 UDAB$L_DESCRIP-UDABST_TEXT(R1) : buffer. 
c8 8 C7 «(184 BISL #UDA_M_OWN! = ; Set port ownership and mark 
c8 Sf UDA_M_FLAG,=- ; $0 port should interrupt on 
FB Al C0000000 8F 3 r UDABSL ~DESCRIP-UDABST_TEXT(R1) 3; ring transitions. 
51 00000050 8F CO O5SCF Be ADDL oer ee" LENGTH,R1 3; R1 => text peretes of next buffer. 
D4 50 20 Fe 0 06 84 AOBLSS #2*UDASR_RINGSIZE,RO,5$ : Loop thru all buffers. 
8E 05 5 DA : TSTL (SP)+ 3; Clear stack. 
50 01 0 050C MOVL #SS$_NORMAL ,RO ; Set status return. 
OOF 1 1 0 of : BRW INIT-UDA_BUF S_RTN ; Branch around to return. 
0 E INIT_UDA_BUFS_UV1: 
E 8 
8 E 
E 
9 
E9 
E9 
E9 
E9 
E9 
EG 
34 
Eg 
EB 


ees eal eal ab ab ab ab ab Ab Abr db Ab Ab Ab Ab Ab db db Abb db db bbb ah ah db Ab ab Ab ab Ab Ab sb ah ab sh ab hh ab dh ah ah Ab Ab Ab Ah Ab hh dh ah ch ee | 
a a ee a em ee ee ee ee ee ee ee a a ad ed ad dd dd 


oa AAEAQMAMAMNVIMMIUMIUIVI 


00 
FAE2 CF 
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53 EE 187 15$ ; the virtual range pointed at by 
EF 187 3 ADPSL_CSR. This bit allows us to 
EF 1 i 3 pass thru here just once, for the 
44 ! iS ; first UQPORT found on a UV1 system. 
51 04 00 EF 1875 MOVL #4,R1 ; R1 contains pages needed for uVAX | 
4 ! 16 pseudo map registers. 
Q00000000'GF 1 Fe 187 JSB G*EXESALOPHYCNTG 3; Allocate physically contiguous memory. 
8B $ 8 5F8 1 8 BLBS :; LBS eeene success tel pi letet ten. ' 
01 CA O5FB 1880 BICL §§ #MAPSM_MAPREGS,- ; Undo setting of bit above since we 
FADO CF SFD (1881 PUSL_DRIVER STS ; have failed to create map registers. 
op0 331 $9 ! § 8s BRW INIT-UDA_BUFS_RTN 3; And goto error return. 
0094 gs 28 DO rt 1884 MOVL Og - COTE. _Pe_paPens? ; Remember address of map registers. 
Sx 2 DO 06 1885 MOVL R2,R1 ; Setup for call to BSBW to convert 
608 1 $ ; virtual address of map registers 
608 1 3 to physical address. 
00cé6 )§=630 «60608 «(1 8 BSBW VIRT_TO_PHYAD 3; Convert R1 to physical address and 
60E 188 > leave result on top of stack. 
60E 1890 ASSUME ADPSL_CSR EQ 6 
50 38683 DO O60E 1891 VL @CRBSC_INTD+VECSL_ADP(R3),RO ; Get address of Qbus adapter CSR. 
50 50 15 O09 EF O612 1 3 EXTZV #VASV_JPN,#VASS_VPN,RO,RO ; Convert from VA to VPN. 
"GF DO 0617 189 MOVL GOMMGSGL _SPTBASE RI 3 Get address of system page table. 
50 6140 OD 61 1894 MOVAL (R1)CROJ,RO 3; Get SVAPTE of Qbus adapter CSR. 
0 10 ¢ 6 1992 ADDL #<4e6>,R6 3; Point to SVAPTEs for map registers. 
51 6E€ _F7 8F 6 1 38 ASHL #-VASV_VPN, (SP) ,R1 : Get PFN of pseudo map registers. 
E 2 9A 062A 189 MOVZBL #4,- :; Count of pages of map registers. 
60 15 00 :+ ¢ 62D 1398 108: INSV R1,@PTESV_PFN,@PTESS_PFN,(RO) ; Set SPTE to nee pseudo map reg. 
50 04 C 1899 ADDL #4.RO0 : Get SVAPTE of next PTE. 
i) 1900 INCL 3; Point to next ez PFN. 
F353 6E— «OF 1901 SOBGTR (SP),10$ ; Loop to map all four pages. 
SE c0 i A 1908 ADDL = #4, SP : Clean counter off stack. 
FA92 CF 8EDO 630 1308 158 POPL PUSL_MPHYAD : Pop physical address into static. 
bee 1998 ASSUME PDTSB_BDPUSECNT EQ PDTS$B_DATAPATH+1 
0129 C4 =B4 aoe 138 CLRW PDTS$B_DATAPATH(R4) ; Clear # of semi-perm BDP and use count. 
50 D4 si 1308 CLAL RO : Initialize loop counter. 
51 029C C4 9E 4 1911 MOVAB PDTSL_PU_BUFARY+UDABST_TEXT(R4) ,R1 3; R1 => text portion 
rs 1316 208 ; of first buffer. 
4D 1914; ASSUME UDABSB_BUFFNO+1 is Reserved byte. 
FO Al «650 «6098 «(0640 «(1915 MOVZBW RO,UDAB$B_BUFFNO-UDABST_TEXT(R1); Store index of this 
51 bat : buffer in its header. 
EC Al 9E 2 191 MOVAB -UDABST TEXT(R1),- : Point Buffer table array 
014C (440 34 1918 PDTS$L_BOTABLE (R45CROJ : element to this buffer. 
0079 30 3 19 ? BSBW VIRT_TO_PHYAD ; Convert R1 to physical address and 
58 19 ; leave result on top of stack. 
8— cO0CO000 BF C9 5B 19 § BISL3 #UDA_M_OWN!- ; Set port ownership and mark 
19 UDA_M_FLAG, (SP)+,- 3 $9 port should interrupt on 
FB Al 19 4 UDABSL~DESCRIP-UDABST_TEXT(R1) : ring transitions. 
51 00000050 8F co 4 1926 ADOL #UDABSC_LENGTH,R1 ; R1 => text portion of next buffer. 
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51. 01 
00000000 ° GF 
01 50 


51 00000000°9F 
wowrrrt 


3 
ocas c&é 51. "80000000 &F 


53. _00000000' GF 
OCAC C4 = 6342 
50.01 
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AOBLSS #2*UDASK_RINGSIZE,RO,20$; Loop thru all buffers. 
; Here initialize the Aligned Page and its accompanying items. These are: 


MOVAB PDTSL_PQ_PGOFL(R4 
PDT$L~PQ-PGQFL(R4 
MOVAB PDTSL=PQ"PGOFL(R4 
PDTS$L~PQ~PGOBL(R4 
CLRL_ PDT$L_PQ_POWNER(R 
MOVAB PDTS$L~PQ~ALGNPG(R 


BSBW VIRT_TO_PHYAD 


POPL PDTSL_PQ_PGPHAD(R4) 


Since the INIT logic only i a system virtual page for the class 

e for the boot driver in its initialization 
routine. We initialize the ; t fields seges tates with the System Virtual Page 
that we use e map the user's non-word al 

it to the Aligned Page. The fields are PD SL. PQ 
to be the System Virtual Address of spre age; and PDT$L_PQ_SVPPTE that 
we set to be the virtual address of the P 


driver, we must allocate a 


MOVZBL 
J SG IGCSALLOSPT 
RO, 30$ 


30$: MOVL @#MMGSGL_SPTBASE ,R1 


- PDTSL_PQ_PGQFL and PDTSL PQ -PGQBL = An allocation queue header 
wherein we queue CORP'S 


waiting waiting for this resource. 


; Save Aligned Page 


2. POTSL_PQ_POWNER = The CDRP of the current owner of the Aligned Page. 
3. PDTSL_PQ_PGPHAD - The Physical address of PDT$L_PQ_ALGNPG. 


; Set up Queue Header. 


; Initialize to NO owner. 
; R1 => Aligned Page. 


Convert RI to pryeress peorene and 
leave result on top of stack 
ysical address. 


buffer so that we can copy 
_UBFSVA that we initialize 


that describes this page. 


Request one SVPN. 
Allocate the system virtual page. 
Br if successful allocation. 
ot ge error to caller. 
t address of SPT (PIC) 


Get 
MOVL cpr $C_Rw'PTESM. “VALID! PTESM_ PEN> - ; Set SPTE to valid 


1) CR2 
MOVL Reo U BSL SVPN(RS) 
ASHL 
BISL3 wast. 


Al. 
DTSL_PQ “UBF SVA(R4 
MOVL As) S ~SPTBASE, RS 
MOVAL pee? R 
PDTSL_PQ  SVPPTE(R4) 
MOVL Att RAAL ,RO 


BRW INIT“UDA "Burs. RIN 
INIT_BDA_ BUFS: 


BUG_CHECK UDAPORT , FATAL 


INIT_UDA_BUFS_RIN: 


RSB 
-dsabl (sb 


writab ble,” and non-existant PFN. 
; Get Virtual Page Number of page. 
; Multipy by 512 to get FOLet tye address 
in system space. Then set high 
rder bit to make s sten eee 


; R3 => system page ta 


; Calcual e address of PTE slot that 
describes this page. 

set return code. 

; Branch around to common return. 


; For now only a place holder. 
; Common return Label. 
; Return to caller 


411 
voo-008 + VIRT_T0_PHYAD "S78Ep=1986 00:17:10 LORIVER.SREIPUDRIVER.MaR:1 “29° 3). 


R 
PhcRO RI R2.R3> ; Restore registers. 


; Return to caller. 


D4 1983 -SBTTL + VIRT_TO_PHYAD 
at 3h 
Zo 
D4 19 § ; VIRT_TO_PHYAD = routine to convert a System Virtual Address into a physical 
D4 «19 ; address. 
D4 «(19 3 
a foe Fen hs @ Gectcn Virtal Rédrens 6 t 
: = System Virtua ress to conver 
604 1991 : . 
6D4 1336 3; Output 
604 1995; Ph sical Address left on top of stack. 
604 1994 ; ALL registers preserved. 
6D4 1995; 
604 1238 
6D4 1997 VIRT_TO_PHYAD: 
6D4 1338 
6— ODD ver +45 PUSHL (SP) 3; Create slot at top of stack for return 
3 value. 
OF 68 D $03 PUSHR ones? R1,R2,R3> 3: Save ce iste 
50 51 FFFFFEOO BF CB 06D 90¢ BICL3 24R1 fo : RO = Boff of "padres. 
EF E 00 EXTZV SvASt V 3; Extract VPN 
3 *So008 Bees 004 #VASS— VPN "RILR 3 _and put it in R2. 
0990009: Gf DO 06€5 2005 MOVL Gann sol Sp SPTBASE, R3 : RS => => system page table. 
6342 00 Dera Bne MOVL (R3) : R 
0 EF O6F $08 EXTZV #PTESV_PFN,- 3; Get page f frage number of buffer 
53 33 1 oer 009 #PTESS PFN,R3,R3 ; pe ge 
2 > 09 78 O6F 010 ASHL eyasy oom R3, : Shift into aliases for ,maysteat address. 
14 AE 53 50 C9 ra ae BISL3 0,R3,20(8 : Put result into stack 
00 201 : 


Se 
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y ! -SBTTL + INIT_INIT_ STEPS 
701 3¢ 
701 > INIT INIT STEPS - intetol tee he host responses for UDA hardware 
f ! 3 initialization. 
701 : Inputs: 
701 3 RS -Addr of UCB 
701 : 
701 3; Outputs: 
f } : UCBSW_HOSTSTEPx fields all initialized 
, i : Registers RO-R2 destroyed 
701 : | 
f : -enabl sb 
4 : INIT_INIT_STEPS: 
701 3; First calculate the vector for this UDA. This is done by scanning the 
701 3 U gcepter interrupt vector looking for a slot that points 
PR $ into this CRBSL_INTD. 
50 4 AS dO 701 MOVL UCBSL_CRB(R5) ,RO ; RO => CRB. 
4 AO DF 0705 PUSHAL CRBSL-INTD(ROS : Save interrupt dispatcher 
44 3; address on stack. 
50 2C a0 00 0708 MOVL  CRBSL_INTD+VECSL_IDB(RO) RO ; RO => IDB. 
50 14 a0 00 70¢ MOVL  IDBSLZADP(RO),R ; RO => ADP. | 
50 10Aa0 00 Ay MOVL ADPS$L~VECTOR(RO) ,RO ; RO => UBA interrupt vectors. 
51 D4 0716 ae CLRL RT ; Initialize counter. | 
: | 
3g 8 b0 8 MOVL (RO)+,R2 ; R2 = contents of a vector. 
5 0 CA 071 BICL #3,R2 3; Clear low order 2 bits to remove 
71¢ ; processor (780 vs 750) differences. 
6— 52 01 OQO71C CMPL R2, (SP) 3: Is this our vector? 
OD 135 O71F BEQL : EQL means yes. 
ED 51 00000080 BF F 721 AOBLSS #NUMUBAVEC,R1,10$ : Else loop back to try again. 
) 729 TSTL (SP)+ : It had better be there 
4 07 CLRL ; or else we return with an error 
5 4 4 208 RSB 3 indication. | 
BE 05 ? " -TSTL CSP D4 ; Remove unneeded stack value. 
51 ad 07 BISW3 = RI,- 3; Or in vector address/4 
7 #uS1_M_IE!- > (ive. vector #) with 
7 <UDASK-RINGEXP@HS1_V_RRNGLEN>!= ; Interrupt Enable bit, and 
7 <UDASK_RINGEXP@HS1_V_CRNGLEN>!= ; the response and command ring 
7 HS1_M BIT15,- ; lengths and the high bit on, 
OOAE CS A480 BF , uCBS@_ROSTSTEP1(RS) : and save it in the UCB. | 
7 3; Here we calculate the UNIBUS virtual address of the ring base so as to be 
4 3 able to communicate it to the controller. 
7 
7 CPUDISP << 700 -RINGBASE COM = 
7 <750,RINGBASE~ COM>, - 


du 
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7? <730 ,RINGBASE_COM>,- 
7 <790 ,RINGBASE- COM>, = 
74 <UV1,RINGBASE-UV1>,= 
75 SS ,RINGBASE-8SS>,- 


78 RINGBASE 8SS: 


50 00E0 f dO 7 MOVL pore ADP(R4) ,RO ; RO = 


pues $N3: 


0082 <5 650 =—B0 MOVW RO,UCBSW_HOSTSTEP2(R5) ; Save communication area address and 


F purge interrupt request bit in UCB. 


EQ UCBSW_PORTSTEP3+2 
STEP Eg crs) 3 Trash UCBSW_PORTSTEP3 as we store s e 
; high word Of RO in UCBSW_HOSTSTEP 


ASSUME ¥ BSW_HOSTSTEPS 
MOVL ST 


0084 (5 38650 860 -UCBSW_PORT 


7 
7 
7 
7 
7 
7 
4 
B1 07 0 CMPW AT$_UBA ; See if” — “UNIBUS adapter. 
OE AO 759 1 ADPSO ADPTYPE (RO) 
06 13 0758 § BEQL R ; EQL implies UNIBUS adapter. 
£28 8 2 BUG_CHECK ODAPORT,FATAL =; For now, if on BDA. 
4 8 ; RINGBASE_COM: 
50 00cO cS 3¢ 0761 MOVZWL UCBSW_PU_BOFF(R5),RO ; RO contains byte offset of ringbase. 
51 24 AS dO P96 ORs MOVL UCBSL_ “CRB(RS),R1 : R1 => CRB. . 
50 09 09 34 A1 FO Q76A 2090 INSV CRBSL_INTD+VECSW_MAPREG(R1) ,#9,49,R0 ; RO contains the UBA 
770 2091 3; virtual address of 
a4 O36 ; the communicat tons 
50 08 CO O77 094 ADDL #POTSL pieeenge Ferm... COMAREA,RO; Add in offset’ to ringbase. 
12 #11 Bee 8 BRB AF TER_RINGBAS 3; Rejoin common code. 
Bree 037 RINGBASE _UV1: 
51 0084 ¢5 00 ae: 099 MOVL UCBS$L_PDT(R5),R1 ; Get the PDT address. 
51 00000208 8F 8 077A 2100 ADDL #PDTSC_RINGBASE,R1 : Point to the ring base. 
FF5O 0 0781 2101 BSBW VIRT_TO_PHYAD ; Convert VA to physical address. 
50 8ED0 1463 19 POPL RO 3; Get physical address of ring base.\ 
at 104 AFTER_RINGBASE: 
0787 2105 
0787 2106 CPUDISP <<780, PURGE _7 80> -= 
0787 2107 <750,PURGE_750>,- 
787 2108 <730,PURGE_730>,- 
oe 109 <790 , PURGE_790>,- 
787 2110 vi, Pes ti += 
787 «2111 <8SS,PURGE_8SS>,- 
787 a 
07A1 11 
7A1 2114 PURGE_780: 
7A1 2115 PURGE- =790 : 11/790 acts same as 11/780. 
50 01 AB O7A1 211 ISW #HS2_M_P1,RO ; Ask for purge interrupts when 
7A4 211 running on a VAX-11/780. 
118 PURGE 438: 
V PURGE-7 
1 
1 
1 
1 
1 
1 
1 
1 
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ot 


7AE 
one 1% ; Here we pickup the SYSGEN parameter UDABURSTRATE. 
0000000 ' GF A O7A 1 MOVZBL Wm ee yoneunst RO : RO contains the burst soy goetin . 
38 50 8 7 78 1 j ASHL -BORS »RO 3 Shift burst rate into . 
A 78 134 BI Sus ; Set GO bit and last fa t pitt we bits, 
7BA 2135 WS4_ 4 “fs. - ; or in burst rate, 
00OBA CS) «6550S «€03 7BA 21 § RO 3 and save as HOST response to STEP 4. 
BF uchSw_ HOSTSTEP4 (RS) 
50 «(01 00 7BF 21 § MOVL $“#SS$_NORMAL ,RO ; Indicate success and 
0 7¢ 149 RSB 3; return to caller. 
7C¢ 14 -dsabl (sb 
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-SBTTL + Hardware Initialization 


+ 
HARDWARE_INIT = internal subroutine 


7¢ 143 
7¢ 1°93 
7¢ 145 ; 
HEE 
7¢ 133 3 Inputs: 
ot 13 3 RS “Addr of UCB 
7¢ 134 ; Outputs: 
7C 1 § 3 
Fee 518% * 
are 155 CNTRLTYP_ARRAY: 
000 O7¢ 1 § «WORD UDASO_CNTRLTYP 
001 O/C 1 WORD LEST ENTRLTY 
005 Bre 138 eWORD TU81_CNTRLTYP 
O06 709 215 «WORD UDASOA_CNTRLTYP 
000 7CB 2160 «WORD RORX_CATRLTYP 
0003 O7CD 2161 -WORD MAYA_CNTRLTYP 
000D O7CF 166 «WORD QDASO_CNTRLTYP 
FFFF O7D1 216 «WORD = 3; End of array fence. 
FFFF FF WO -1,°1,°1,-1,° ; Space for expansion. 
FFFF FF FF FFFF FFFF 3703 168 DEVTYPE Ph oe 1,°1,°1,°1,°1 f i 
03 $7pp 166 -BYTE DT$_UDASO 
05. O7DE 2167 -BYTE OTS$_LESI 
06 o70F 168 -BYTE DT$~TU81P 
04 O7EO 2169 -BYTE DTS$_UDASOA 
07 O7E1 2170 -BYTE DTS_RORX 
08 4a 171 te DT$_TKSOP 
0B O7E 1% -BYT DT$“aDA50 
00 00 00 00 00 00 1434 \t? eneures serie -0,0,0,0,0 : Space for expansion. 
05 SFEA 175 “.BYTE <1@DISK_CONID>!<1aDUP_CONID> 3; UDA supports disks and DUP. 
05 O7EB 2176 ~BYTE <l@DISK_CONID>!<1aDUP_CONID> 3 oaree supports disks and DUP. 
06 O7EC 2177 BYTE <1@TAPE_CONID>!<1aDUP_CONID> ; TU81 supports tapes and DUP. 
05 O7ED 2178 -BYTE <1a@DISK_CONID>!<1aDUP_CONID> 3 UDASOA supports disks and DUP. 
05 O7EE 2179 -BYTE <laDISK_CONID>!<1aDUP_CONID> 3; RD/RX supports disks and DUP. 
06 O7EF 190 -BYTE <1@TAPE_CONID>!<1aDUP_CONID> 3; MAYA supports tapes and DUP. 
05 O7FO 2181 -BYT <1aD1SK_CONID>!<1aDUP_CONID> : QDA50 supports disks and DUP. 
00 00 00 00 00 00 ofr) 1 ¢ -BYTE 0,0,0,0,0,0 : Space for expansion. 
7F7? 2183 UCODE_VER_ARRAY: 3 Minimum ycode version levels 
00 ad 184 BYTE 0 ; UDASOA (0 since special purpose 
7F8 2185 . ¢€ lready checks). 
8 ore 1 § BYTE ; RC cb for now) 
7F 1 BYTE ; TU81 (0 for now) 
00 O7FA 2188 -BYTE 3; UDASOA (0 since special purpose 
7FB 2189 3; code already checks). 
9 O7FB 2190 -—BYTE 9 ; RDRX. 
. 7FC 2191 BYTE 3 MAYA, 
7FD 136 -BYTE 3 QDA. 
00 00 00 00 00 aot 137 ae mee serie .0,0,0,0,0 : Space for expansion. 
7 4 2195 “= “BYTE MSG$_UDASOMVER : UDA3O Opcom message number 
D 05 136 -BYTE MSGS_RC2SMVER ; RC25 Opcom message number 
F 88 19 -BYTE MSG$_TUSIMVER ; TU81 Opcom message number 
7 198 -BYTE MSGS_UDASOMVER : UDASOA Opcom message number 
E 08 2199 -BYTE MSGS_RDRXMVER ; RDORX Opcom message number 
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SF 9 9 -BYTE MSGS_TU8SIMVER : Use TU81 Opcom message number 
; A : for MAYA for now. 
57 A § -BYTE MSGS_UDASOMVER : we. UDASO Opcon message number 
3 now. 
00 00 00 00 00 00 : : OTE 9.-0.0.0,0.0 : Space for expansion. 
1 § HARDWARE_INIT: 
pose 73 set 5 11 3 POPL UCBSL_DPC(R5) ; Remember return 
OO0A5 f 9 16 DECB ern oe re eee ; Count # of consecutive times thru here. 
A 12 1A 10 BNEQ $ 3 NEQ means that we have not exhausted 
1¢ 11 3 _consecutive retries. 
53 $f AS 00 1 \¢ MOVL UCBSL_CRB(RS) ,R3 : RS => CR 
1C A3 F°AF a 1 MOVA B°4$,CRBSL_TOUTROUT(R3) ; Establ sh" sono routine. 
OA Ci 08 14 ADDL3 #INIf DELTA,- : Establish a small delay. 
00000000" GF 8 15 G*EXESGL_ABSTIM,- 
18 A3 ¢ 1 CRBSL_DUETIME (RS) 
05 OB i «8 RSB 3; Evaporate for awhile. 
O82F 19 SETIPL #IPL$_SCS 3; Lower IPL after wakeup. 
54 10 Ad. =~—D0 300832 $0 MOVL CRBSL_AUXSTRUC(R3) ,R4 3 R& => PDT. 
55 000C C46 DO 0836 1 MOVL PDTSL_UCBO(R4) RS ; RS => UCB. 
F8BA CF 9E 0838 $§ MOVAB NULL_ROUTINE,- 3 Restabl.. null wakeup routine. 
1C A3 44 2 CRBSC_TOUTROUT(R3) 
05 90 0841 4 MOVB #NO_CONSEC_INITS,= ; Reinit count that went to zero. 
O0AS C5 0845 3 “ UCBSB_INITCNT(R5S 
046 AB baee § 7 BISW #UCBSM_PU_HRDINI,- 3; Set bit si ign a og 
68 AS 084 8 Mitte eee 3 that we initi he port. 
54 0084 C5 dO Seer +] MOVL UCBSL_PDT(RS) ,R4 ; R4& => PDT. 
53 0100 C4 «0 s«OB4F 0 MOVL  PODTSL“PU_CSR(R4) ,R3 : R3 => UDA CSR. 
0203 (4 «94 0854. i ad CLRB = PDT$BPURGEDP(R4S : Prevent spurious purges. 
a: 
63 84 0856 234 CLRW UDAIP(R3) 3; Start hard init. 
thy ? 3; At least 100 micro seconds must pass between here 
O85A 8 ASSUME UCBSW_BOFF EQ UCBSL a oH +4 
tH 39 ASSUME UCBSW_BCNT EQ UCBS$W_B 
85A 40 ASSUME UCBS$W_PU_BOFF EQ UCBSL~ “Py. SVAPT +4 
Ba38 ‘3 ASSUME UCBSW_ PU “BCNT EQ UCBSW- PU “BOF F + 
A 4 
OBsh 44 CPUDISP <<780,LOADUBA_COMMON>,- 
85A 45 <7 0: LOADUBA~ COMMON>, = 
85A 48 <73G,LOADUBA_COMMON> ,- 
85A 4 <790,LOADUBA_COMMON>,=- 
085A $8 aye * NOLOADUBA UV1>,=- 
5A 4 <8SS ,LOADUBA_ 855>,- é 
ah 55a 
74 4 LOADUBA_8SS: 
50 O0EO C4 09 74 MOVL PDT$L_ADP(R4) ,RO ; RO = 
8 79 4 CMPW #AT$_OBA : See i** os “UNIBUS adapter. 
OE AO 78 33 ADP$@_ADPTYPE (RO) 
04 13 7D 6 BEQL LOADUBA_COMMON ; EQL implies UNIBUS adapter. 
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7F 34 BUG_CHECK UDAPORT,FATAL ; For now, if on BDA. 
33 LOADUBA_COMMON: 
00ee C 7D 61 MOVa UCBSL_PU_SVAPTE(R5),-  ; Copy parameters that allow mapping 
A $6 UCBSL_SVAPTE(R5) ; of communication area and buffers. 
9 6 LOADUBA ; Load UNIBUS map registers with values 
F 64 3 that map communication area and buffers. | 
: 2 NOLOADUBA_UV1: 
88F 89 DSBINT 
b3F 08 158 WFIKPCH 15$,#2 ; Cause timeout to waste time. 
oF 56 : SETIPL UCBS$B_FIPL(RS) 3 Lower IPL after timeout. 
O28e 30 O8A3 71 BSBW INIT : Initialize variable POT data. 
OOAC C BS A6 i CLRW UCBS@_PORTSTEP1(RS5) ; Clear port responses so that 
0080 C5 = B4 AA 7 CLRW UCBSW_POR Ute HEF 3; the error log record we create 
0084 (5) = B4 a5 74 CLRW UCBSW_PORTSTEP3(R5) ; will contain only the responses 
0088 (5) «684 «(08B 75 CLRW UCBSW_PORTSTEP4(R5) 3; received in this INIT attempt. 
OOA6 CS = BG Baee ug INCW UCBSW_NUMBINITS(R5) 3 bnerengat g ot times we have attempted 
3 to in ort. 
nee iH 3; and here 
02 AS BO O8BA 80 MOVW UDASA(R3),- ; Read SA register. 
OOAC ¢5 08BD 2281 UCB$W_PORTSTEP1(R5) 
OF €1 +34 Hf BBC #PS1_0_ER,- ; Test for error condition 
03 OOAC C5 pete a 208 UCBSQ_PORTSTEP1(R5),30$ :; and branch around if clear. 
0169 31 O8C6 385 aa BRW HARD_RETRY : For now only. 
0B €1 08C9 2287  ~— BBC #PS1_V_S1,- ; Make sure we are in STEP1 
F7 OOAC C5 pace Hs UCBS$@_PORTSTEP1(R5),20$ : or else go back. 
pace 39 3; In Step 1. 
O8CF 35 DSBINT :; Prepare to respond to STEP1. 
05 €5 0805 229 BBCC #UCBSV_POWER,- : Power failure negates what we have 
03 64 A5 08D7 229% UCB$W_STS(R5S ,35$ : done until now. 
01D2.—és«O331 ty € 55 BRW HARDPOWER : If power failure branch around. 
OOAE C5 B0 9800 44 "MOV UCBSW HOSTSTEPT (RS) ,~ ; Else move value to SA register. 
i, $3 WFIKPCH STEP1_TIMEOUT,ASTEP1_LIMIT ; Wait for interrupt. 
ee 64 IOF ORK 3; Lower IPL and continue. 
WA 30 O8F 8g BSBW WAIT100US é ; Call to wait for at least 100 uSecs. 
02 A B0 O08F6 MOVW UDASA(R3) ,- ; For slow TU81, gopy UDASA after fork- 
OOAA C5 OBFY 04 UCBSW_UDASA(RS) : ing so as to give it enough time. 
OOAA C5 BO O8BFC 05 MOVW UCB$W_UDASA(R5) ,- ; Save Port STEP2 start value 
0080 C5 30 06 UCB$W~PORTSTEP2(RS) 
4 3 3 In Step 2. 
06 0080 (5 «OF E0 $03 19 BBS #PS2_V_ER,UCBSW_PORTSTEP2(R5) ,37$ 3: For now! !!! 
Oc €0 $09 1 BBS #PS2_V_S2,- ; Make sure we are in STEP2. 
03 0080 cs 9 18 UCB$Q_PORTSTEP2(R5) 408 
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Ra0F 14 37$: 
O1A0— 31 aye 12 408 BRW HARD _RETRY ; Else branch to retry. 
0080 cS) 91s«091 13 CMPB UCBSW_PORTSTEP2(R5),-  ; Test whether controller echoed 
OOAF C3 91 18 BSW-HOSTSTEP1+1(R5) : fields correctly. 
0 13° 091 1 BEQL $ ; EQL implies yes. 
0194 «31 218 ? 50s BRW HARD_RETRY ; Else branch to retry. 
SIE ¢ ; DSBINT 3; Prepare to respond to STEP2. 
0S =€5 83 4 BBCC #UCBSV_POWER,- ; Power failure negates what we have 
03 64 as 9 § 4 UCBSW_STS(R5S,55$ ; done until now. | 
018 31 9 ; 5 <0 BRW HARDPOWER : If power failure branch around. | 
008 % B0 4 C 2 ; MOVW UCBSW_HOSTSTEP2(R5),- ; Else move value to SA register. 
3 23 WFIKPCH STEP2_TIMEOUT,#ASTEP2_LIMIT ; Wait for interrupt. 
$9 31 IOF ORK ; Lower IPL and continue. 
O1AF 30 094 3 BSBW wT eeNE :; Call to wait for at least 100 uSecs. 
02 AS «BO 094 MOVW UDASA(RS),=- ; For slow TU81, copy UDASA after fork- 
OOAA C5 0948 2334 UCB$W_UDASA(RS) ; ing so as to give it enough time. | 
OOAA C5) «680 (0948 «2335 MOVW UCBSW_UDASA(R5) ,- ; Save Port STEPS start value 
00B4 C5 beep $39 UCBSW_PORTSTEP3(R5) | 
we 33 3 In Step 3. 
06 0084 CS OF €0 093 340 BBS #PS3_V_ER,UCB$W_PORTSTEP3(R5) ,57$ : For now!!!! | 
OD £0 0958 308 BBS #PS3_V_S3,- ; Make sure we are in STEP3. 
03 0084 C5 095A 343 oe UCBSO_PORTSTEP3(R5) ,60$ 
0151 + 31 843 <7 ad BRwW HARD_RETRY ; Else branch to retry. 
00B4 ¢5)—s91 0961 303 ; CMPB UCB$W_PORTSTEP3(R5),- ; Test whether controller echoed 
OOAE C5 0965 2348 UC SOU HOSTS TERT (AS :; _fields correctly. 
03 13 0968 2349 BEQL 0$ ; EQL implies yes. 
0145 =31 8405 $29 70$ BRwW HARD_RETRY 3; Else branch to retry. 
096 33¢ ; DSBINT ; Prepare to respond to STEP3. 
ES 097 35 BBCC #UCBSV_POWER,- ; Power failure negates what we have 
03 64 AS 975 54 UCBSW_STS(R55,72$ : done until now. No failure, continue. 
013 31 bore 23 728 BRW HARDPOWER : So branch to HARDPOWER if failure. 
0086 C3 B0 14 33 ; MOVW Bcoee RoE rSTEPSIRS) “= ; Else move value to SA register. 
41 33 WFIKPCH STEP3S_TIMEOUT ,#STEP3S_LIMIT ; Wait for interrupt. 
988 61 1OF ORK ; Lower IPL and continue. 
gr6 30 0991 6¢ BSBW WAIT100US ; Call to wait for at least 100 uSecs. 
02 A BO 0994 6 MOVW UDASA(R3),=- ; For slow TU81, copy UDASA after fork- 
OOAA C 99 64 UCBSW_UDASA(RS) i; ing so as to give it enough time. 
OOAA C5 =6BO (099A 65 MOVW UCB$W_UDASA(R5) ,- ; Save Port STEP4 start value 
0088 C5 99 66 UCBSW~PORTSTEP4 (RS) 
pat re : In Step 4. 
06 0088 CS) «6(OF:~=CrEO «OSA % BBS #PS4_V_ER,UCBSW_PORTSTEP4(RS) ,77$ : For now!!!! 
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Of EO Q9A7 i BBS #PS4_V_S4,- 3; Make sure we are in STEP4. 
03 0088 C¢ 9A t3 mn UCBSO_PORTSTEP4 (RS) ,80$ 
0102 #31 pty e 80s BRW HARD_RETRY ; Else branch around to retry. 
06 ED 098 8 CMPZV) = #PS4_V_CNTRLTYP,=- 3; Here we assure that the controller 
07 98 oe #PS4-S"CNTRLTYP,=- 3; microcode is upto ce gitvet« First 
00B8 C5 oR 7 UCBSQ_PORTSTEP4(R5),- ; see if we have a UDA 
0 286 g0 #UDASO_ CNTRLTYP 
1 ie 9B 1 BNEQ : $ 3; If NOT, branch around. 
0 9 989 ¢ MOVB #DT$_UDA50,- $ gil in UCB devtype field with value 
41 A 988 UCB$B_DEVTYPE(R5) : UDA 
00 ED 098D 4 CMPZV #PS4_0_UCODEVER,- ; If’a 5 UDASO: see if microcode 
04 O9BF 85 #PS4"S"UCODEVER,=- ; upto rev by compar ing ogetans out of 
0088 C5 pace 6 UcBs0 -PORTSTEP4(RS),- ; date microcode version 
01 09C 8 ; Out of date version number. 
06 12 09C4 $66 BNEQ 50s 3; NEQ implies Ucode is OK. 
0116 = 31 bors 3 BRW UDA_OUTOF REV ; EQL implies inoperative Ucode. 
09¢9 331 GOTO_HARDP: 
O0E3 31 Soce 398 908 BRW HARDPOWER ; Branch to faraway Label. 
01DB 30 O9CC 2394 BSBW STOCK_RSPRING ; Stock response ring aftef controller 
Bece $02 : clears it. 
O9CFE 2397 DSBINT ; Prepare to respond to STEP4. 
05 €4 0905 2398 BBSC #UCBSV_POWER,- ; Power failure negates what we have 
EF 64 AS 0907 2399 UCB$W_STS(R5),GOTO_HARDP: done until now. 
084 C3 BO Boos ret MOVW UcBSurHOsTS TEPC CR R53,- ; Else move value to SA register. 
6434 188 ENBINT : Lower IPL and 
0 AA O9E 40 BICW “chong PU_HRDINI,- : Reset bit $1 nalling 
68 AS O9E5 404 UCBSW =DEVSTS(RS) : that we ini ing the por 
0 BO O9E7 2405 MOVW RINITOA TNCODE,- : Indicate what kind of” error log record 
OAB C O9E9 2406 UCBSW- ATINGODECRS) ; we are about to creat 
00000000'GF 16 443" tits JSB GERLSDEVICEATIN ; Call to create error toe record of INIT. 
O3t 2 409 : Here we have initialized the port. If it is a UDA, permanently allocate 
O9F 410 ; . Buffered Datapath and bias the useage count so that it is never released. 
O3t 2 $1} ; This is done only on the first time thru here. 
05 €3 O99 418 BBCS #UCBSV_PU_BDPATH,- ; Make sure first time thru. 
03 68 AS 9F4 2414 uceew BevSTS(R5),140$ , 
0095 ~=s« 3311 ne rt 1408 BRW : If NOT first time, branch around. 
04 EF O9FA 417 EXTZV #PS4_V_CNTRLTYP,=- ; Extract controller type and 
07 O9FC 2418 #PS4_S_CNIRLTYP,- put it in on top of stack. 
7E 0088 cS O9FD 419 UCBSO PORTSTEP4(RS) ,- (SPS 
0 04 vt ? Y 1508 CLRL RO 3; Clear loop counter. 
FDBA CF40 6€E 61 AO8 4 § CMPW (SP), CNTRLTYP_ARRAYCRO] ; Look for UQPORT type. 
i AOD 246 BEQL 160$ ; EQL implies found. 
FDB3 CF4 8 A 424 TSTW CNTRLTYP_ARRAYCRO) ; See if at end of array. 
; 9 OAl 425 BLSS 170$ ; LSS implies NOT found. 
0 D6 OAI 4 $ INCL RO : Increment Loop counter. 
ED 11 OAIS 24 BRB 1508 ; And loop back. 
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160$: 


170$: 


180$: 


; eee 
3 «that 


TUDA_ 


TES 
TESTUDA_ 


UDA750: 
UDA8SS: 


UDA730: 
W308: 


3; Here 


MOVB 


MOVL 
MOVB 


MOVZBL 
CMPZV 
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DEVTYPE_ARRAYCROJ,- 3 ‘e appropriate UQPORT type to 
veBVCS Rs) f gl wor. 4 
HIENEMeRTRtD-~ any bef tervers swore 

: to 
UCODE-VER_ARRAYCROJ,R1_ ; nloime acceptable ucode version 
#PS4_9_UCODEVER,= 3; Compare our ucode version to 
#PS4"-S-UCODEVER,- 3 minimum acceptable level. 


yee PORTSTEP4(R5) ,R1 
$ ; GEQ implies it IS acceptable. 


OPC_MSG AaRANURGS Rt : Opcom message number to R1. 
SEND_OPC_M ; Subroutine to send message. 


RO ; Controller type to RO. 
RO ,#UDASO_CNTRLTYP Is it UDASO? 


8 : If YES, then 490 allocate. 
RO ,#UDASOA_CNTRLTYP : Is it UDASOA? 
196$ 3; If neither of above, no allocate. 


UDA's on VAX-11/780 and VAX-11/790 systems have a purge problem 
corrupts data. 


CPUDISP <<788. MF See 780>,- 


780: 
790: 
CMPZV 


<730,UDA730>, 

<790, TESTUDA_ "790>, ~ 
<UV1 ,UDAUV1> 
_ «88s. *UDABSS>. - 


#PS4_V_UCODEVER 
#PS4” 3 “UCODEVER 
ucBsa_ PORTSTEP4 


ypA OUTOFREV 


If UDA on 780, see if microcode 

upto rev by compar ing ogetnes out of 
date microcode version 

; Out of date version number. 

; LEQ implies inoperative Ucode. 


{RS),- 


908 ; Branch around allocation of perm. BDP. 
EY he ty) 3; Permanently allocate a datapath. 
UCBSL_C RO => CRB. 


CRBSL “RURSTRUECROD, R4 : R4& => PDT. 


CRBSL_ ibe $4 DATAPATH(RO),- ; Remember datapath permanently 
PDT$B_DATAPATH(R&) : allocated in POT. 
CRBSL_ INTDSVECSB. DATAPATH(RO) 3; Clear CRB field. 


PDT$B_BDPUSECNT (R4) ; Bias useage count to prevent dealloc. 


we setup the CRB wakeup mechanism to periodically poll the SA register 
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r : : 5 ; to determine if the U/QPORT has had an uncorrectable error. 
30 ee ORD bags 8c ADDLS #5A POLL -INTVAL~ § Bcebileh In petting tesorcet 
. ° sta Ss ie] n nter * 
00000009" GF AB Sép6 G*ERESGL-ABST IM ints eae aie 
18 AO AIA 2490 Ens SDUETIRE (ROD 
135B'CF 9E OA9 491 MOVAB wW*PUSSA POLL ; Establish wakeup routine. 
1¢ AO “ 138 CRBSL *TOUTROUT (RO) 
50 O01 00 oe t3e 2008 MOVL S“#SS$_NORMAL ,RO 3; Return normal status. 
0040 8F AA OAA 496 "  Bitw #UCBSH PU 131488 - : Indicate Init Error Log no Longer 
68 A AA 49 uCBSw_Bevs : in progress (if it was). 
009¢ DS) s«i17 pAAs $38 JMP auc ties DPC(R 3 return to caller. 
OAAF 200 HARDPOWER : ; We got a a powerfailure while initing 
OA 23) ; = Das Simply start hardware init 
AAF 208 ENBINT : undo DSBINT. 
OAB 504 HARD_RETRY: 
54 0084 CS DO OAB 505 MOVL ycast. pot ees R4 3 R& => PDT. 
50 0100 C4 00 OAs 306 MOVL acnos R(RS) ,RO RO => UDA CSR. 
OOAA C5) «602 AO) «6BO OCOAB 50 MOVW UDASATR ye jcasw ” ODASACRSS ; Save error status in UCB for Logging. 
O¢ BO OAC 508 MOVW #FAIL_ATTNCODE : Indicate what kind of error log record 
OOA8 C OACS 2509 UCBSW CATTNCODE (85) ; we are about to create. 
06 E2 OAC? 2510 BBSS oucest e NILO : Indicate Init Error Log in progress. 
06 68 OAC9 2511 u BEVSIS«RS) °210$ ; and if in progress already, branch 
00000000'GF 16 OAog 218 nes JSB ait tts EVICEATTN : Call to create error log record of INIT. 
oo9c C5 D OAD 514 : PUSHL UCBSL_DPC(RS) 3; Restore caller's return to stack. 
FD38 1 QAD6 2515 BRW HARDWARE _INIT ; And branch back to restart hardware 
ADO 2516 init of UDA. 
OAD9 2517 
OQAD9 518 STEP1_TIMEOUT: 
OAD9 2519 Sree our! 
OAD9 2520 STEPS-TIMEOUT: 
QAD9 2521 SETIPL UCBSB_FIPL(RS) ; Lower IPL after timeout. 
D311 BADD 2 ¢ BRB HARD_RETRY : Go to try again. 
OADF 524 UDA_OUTOFREV 
OADF 525 If OF UDASO_BYPASS 
OADF 25 $ BRB 90$ ; Bypass rejection. 
wee 5 -ENDC 
B0 OADr : § MOVW #UCODE_ATTNCODE : Indicate what kind of error log record 
00A8 C5 AE? 2530 UCBSW_ATTNCODE (RS) : we are about to create 
00000000'GF 16 DAA : 1 JSB G*ERLSDEVICEATIN : Call to create error log record of INIT. 
51 57 8F 9A OAEA 25 § MOVZBL #MSG$ pease et R1 ; Message number to R1 oo subroutine. 
23. «10 Oar 5 ; BSBB SEND_OPC ; Send message to OPC 
50 D4 OAF 3 § CLRL RO : Indicate unable to init hardware. 
Bi si we 5 BRB 2008 ; Branch back to return. 
AF4 2 § -dsabl tsb 
AF4 2540 
AF4 541 WAIT100US: 


i - ) 
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AFS4 t TIMEDWAIT TIME=415 ; Wait for 150 uSecs. 
05 } rt RSB 

} o2 ; R1 = MSG$_ message code. 
} oF SEND_OPC_MSG: 

F Hi 1 ‘8 PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Save registers. 

54 ie - 1 550 MOVL R1,R4 3 Byosee number to R4. 
53 00000000'GF 9& 0B18 2551 MOVAB G*SYS$GL_OPRMBX,R3 : R3 => operator's mailbox. 
GOOO0000" SF 16 1F 226 JSB G*EXESSNBEVMSG 3 Call to send operator message. 
F Ba Bass 227 4 ty #*M<RO,R1,R2,R3,R4,R5> ; Restore registers. 


j 
| 
Return to caller. 
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-SBTTL + INIT_PU_PDT Fill in variable 
-SBTTL + PDT data 


INIT_PU_PDT = internal subroutine to initialize (or re-initialize) 
variable POT data. This routine assumes that BUILD_PDT has been called 
prior to the activation of this routine. 


NIT_PU_PDT is called from HARDWARE_INIT, and initializes the Q headers 
n the POT and also initializes the Ring structures by Hitting the response 
ring with available buffers and then placing all the rest of the buffers on 


the free Q. 
Inputs: 
RG “Addr of PDT 
Outputs: 
RO-R2 “Destroyed 
Other registers -Preserved 


Response ring filled 
Free Q fille 

PDTSL_PU_SNDQFL initialized 
POTSL_PU_BUFQFL initialized 


Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
4 oe 
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PWDN—M DY ¥Y PP NUMIOON A OAOAAAO CO0000000 0909.00 00 00 00 09 09 09. G9 00 00: 


INIT_PU_PDT: 
ASSUME PDTS$W_CMDINT 0 PDTSL_COMAREA+4 
3 ASSUME POTSWIRSPINT EQ PDTS$W-CMDINT+2 
0200 c4 = 7¢ CLRQ = PDTSLCOMAREA(R4) 
ASSUME PDTSB_CPOLLINX €0 PDT$B_CRINGINX+1 
ASSUME PDTSBCRINGCNT £0 PDT$B~CPOLLINX+1 
ASSUME PDTSB-RRINGINX £0 PDT$B~CRINGCNT+1 
ASSUME PDTSB-RPOLLINX £0 DTSB-RRINGINX+1 
ASSUME PDTSB-RRINGCNT €Q DT$B~RPOLLINX+1 
ASSUME PDTS$B"NOCURCON EQ PDT$SB-RRINGCNT+1 
ASSUME PDTS$B~CONBITMAP EQ PDT$B_NOCURCON+1 
0120 4 = 7¢ CLRQ = PDTSBCRINGINX(R4) 
14 00 MOVL #UDABST_TEXT,- 3; Save UDA port SCS datagram header 
0088 C4 PDTS$L_DGOVRHO(R4) ; size in POT. 
14 00 MOVL #UDABST_TEXT,- 3 Save UDA port SCS message header 
00B4 C4 PDTSL_MSGHDRSZ(R4) : size in POT. 


3; Initialize PDT Q headers. 


OODOOOOO0O 0000 OOO 0000 09 69 69 09 69 09 09 68 SI NINN SIN NNO AAA AAAAAOuI 
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Pe Pe Pe Peo Pe To tote o eet h oak an AL AL AL AL AL AL AL AL AL AD AD AD AD AD AD AD AL AL AL AL AL AL AL AL AL AL AL AL AL AL AL AL AL AL AL AD AL AL TAL AL AL ALT ALY AL 


OOAC C4 9E MOVAB PDTSL_WAITQFL(R4),- :; Empty wait queue header 
OOAC C4 POTSL_WAITQFL(R4) : 
OOAC C4 o9E 4 MOVAB PDTSL_WAITQFL(R4),- : Empty wait queue header 
0080 C4 a : PDTSL_WAITQBL (R4) s 
oi8 C4 GE 4 1 MOVAB PDTSL_PU_FQFL(R4),- : Free Q header. 

108 C4 4 1 POTSL_PU_FQFL(R4) 
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MOVAB 
MOVAB 


MOVAB 
MOVAB 


MOVAB 
MOVAB 


MOVL 


STOCK_RSPRING: 


— 
. 


PDTSL_PU_SNDQFL 
PDTSL~PU~SNDQFL 
PDTSL~PU~SNDQFL 
PDTS$L~PU~SNDOQBL 
FL 

FL 

L 


PDTSL_PU_BUFQ 
PDTSL~PU-BUFQ 
PDTS$L~PU-BUF OF 
PDTSL~PU_BUF QBL 


(R4) 
(R4) 
(R4) 
(R4) 
(R4) 
(R4) 
(R4) 
(R4) 


#1,PDTSW_PU_CREDO(R4) 
#1.PDTSW~PU-CRED1(R4) 
#1,PDTSW~PU~CRED2(R4) 
#1,PDTSW-PU-CRD255(R4) ; 


#UDASK_RINGSIZE-1,RO 


T 
POTSL_CMBRING(R4) [RO] 
POTSL RSPRING(R4) CROJ 
RO, 108 
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Free Q header. 


; Point Free @ pointer to Free Q. This 


pointer is used to test for 
emptiness of Free Q. 


; Send Q@ header. 
; Send Q header. 


; Buffer wait Q header. 


Buffer wait Q header. 


: Initialize initial credits for all possible connections. 


Initial credit o 
Initial credit o 
Initial credit o 

° 


f 
} 
Initial credit of 


1. 
1. 
1. 
1. 


; Following loop is for arrays that are RINGSIZE long. 


Initialize loop counter. 


Nothing in command slot. 
Nothing in response slot. 
Clear command ring slot. 
Clear response ring slot. 
Loop thru all array elements. 
Return to caller. Rest of PDT init 
called explicitly at label below. 


hru all buffers (there are 2*RINGSIZE of them) and put them on the 
response ring or the free Q. 


CLRL 


RSB 


PL 
AOBLSS 


RO ; 
PDTSL_BDTABLE(R4)(ROJ,R2; 
Q_DEALLOC_BUF ; 


RO . 
#2*UDASK_RINGSIZE RO, 108; 


Initialize loop variable. 


R2 => buffer(lRO) 

Remember loop variable before call. 
Put buffer on response ring or free 
Q, whichever is aporepete e. 
Restore loop variable. 

Loop thru all buffers. 


; And return to caller. 


$e 


rts 


51 


00000054 8F 


9053 
03 50 
0099 

5 
8288 
04 A252 
08 A251 
0460 8F 
OA A2 
12 A203 
51 28 AS 
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BUILD_PB_SB Build System Block and Path Block 


~w 
Mo 
~ 


-SBTTL + 


BUILD_PB_SB = Build and fill in the System Block and the Path Block. 
This portion of the UDA port driver is responsible for adding 
the UDA to the system-wide configuration database. It is invoked 
as a one time initialization routine. 


The system wide configuration database consists of: 
SCS$GQ_CONF IG 
v 
System Block ----> Path Block ---=-> Path Block ---=>... 


v 
System Block ---=> Path Block ---=->... 
v 


Only systems and paths with open port-port VC's are kept on the 
above list. 


For each UDA (AZTEC or TU81) we build a Path Block and a System Block, 
initialize them and Link them into the systemwide configuration database. 


Inputs: 
RG “Addr of PDT 
RS “Addr of UCB 


698 ;- 

99 

f , BUILD_PB_SB: 

7 § MOVL #PBSK_LENGTH,R1 ; Get size of a pathblock 

7 BSBW ALLOC_POOL 3; Allocate one from pool 

704 BLBS RO,1 : Branch around if success. 

oN 108 BRwW PB_ALLOC_FAIL ; Branch if no pool 

7 § ; MOVL ag -8S ; Set PB addr in stable cegister 

708 MOVL R2,PBSL_FLINK(R2) 3; This will be the only Path 

709 : Block on this List. 
Ay MOVL R2,PB$L_BLINK(R2) : FLINK and BLINK point here. 
ar MOV R1,PBSW_SIZE(R2) ; Set structure size | 
714 ASSUME PB$B_SUBTYP EQ PBSB_TYPE+1 
715 MOVW #DYNSC_SCS+<DYNSC_SCS_PBa8>,= 
ay PBSB_TYPE(R2) ; Set struct type, subtype 

£18 MOVW #PBSC_OPEN, PBSW_STATE(R2) ; Always in OPEN state. 

720 MOVL UCBSL_DDB(R5) ,R1 ; R1 => DDB for port device. 
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V0e- 000 + BUILD_PB_SB Build System Block and Pat g7$EP P= 1984 0:93:48 DRIVER. SRCJPUDRIVER.MAR; 1 . (2) 
15 Al 00 EB 2721 MOVL DDBS$T canes ALF - 3; Co ort name to port block. 
24 a EE o70¢ PBST CPORT NAME CA2) sibs ° 
27 A253 90 4 f ? MOVB error. PEST _LPORT_NAME+3(R2) ; Unit is always 0. 
2C A2 «654~—CO0 ace f 5 MOVL R4,PBSL_PDT(R2) :; Save PDT pointer in Path Block. 
BA 9E Fe 7 5 MOVAB PBSL erry thd gt ),- : Initialize empty Q header. 
é A FB O07 8 BSL _WAITQFL (Ro) 
A 9E FD 7 MOVAB PBSL_WAITQFL(R Re" 
CA : 4 ? PBSL- _WAITQBL (R2) 
: g ¢ 3; Now build System Block. 
51 00000060 8F 34 C 734 MOVL #SBSK LENGTH. R1 : Get size of SB 
0080 C 735 BSBW ‘ : Allocate from nonpaged pool 
59 50 €9 OCOC 7 § BLBC $B. ALLOC FAIL ; Branch if no = ol 
30 a3 2s DO OCOF 27 MOVL *PBSL_SBLINK(R3) ; Save System Block address in PB. 
OOFC C4) dO pci f 3 MOVL PDTC PU_SB(R4) 3 Save System Block address in POT. 
08 3 51 BO 0C18 2740 MOVW at -SBSW_SIZE(R2) Set struct size 
0760 8F B60 OCIC 2741 MOV DYNSC_SCS+<DYNSC _SCS_ sBaa>, - ; Set Strvcture type 
OA A2 +334 rs SBSB. TYPE(R ; ; ands type 
OC A2 OC A2- 9E C 3 74 MOVAB SBSL =POFL (Re)  $BSL “POBL (R2) : ates Q head of path 
10 A2 OC ag 9E OC 744 OVAB SBSL_ _PBFL(R ~PBBL (R2) 3; blocks. And Q this path 
0C B2 63 OF OC2C 2745 INSQUE (R3)-a@SBSL See BROT : block to head of that Q. 
14 a2 53 DO O¢ 9 746 VL RS SBS SPBCONNKCR ) : Let this path be Next path. 
0C34 2748 ; Here we concoct the SYSTEMID of this controller. It is made up of the 
0C34 2749 ; following pieces: 
0C34 2750; 
0C34 2751; 4 33 
0C34 23g ; oF einieaintiteuhiael Sia Aniidiieekmanceenninbininimmei tia tattagiiel 0. 
0C34 2753; * ' ' 
0C34 2754; ‘1! TR number ! UDA CSR address t 
0C34 2755 ; SPE: a RR: APRESS =F : 
0C34 2756 
50 24 AS DO 0C34 757 MOVL UCBSL_CRB(R5S) ,RO ; RO => CRB. 
50 2c AO 00 C38 758 MOVL CRBSL—~INTD+VECSL_IDB(RO) RO 3; RO => IDB. 
60 00 OC3C 2759 Vv IDB$L_CSR(RO),- : Move CSR to low longword of 
18 A2 C f 760 SBS SySTERIDIRG) : SYSTEMID. 
50 14A0 OD C4 761 MOVL 1DB$C_ADP(RO) ,RO : RO => ADP 
0c AO 6B bees 76 MOV ADP$W_TR(RO),- ; Move nexus number to high 
C A2 C47 276 SB$B_SYSTEMID+4(R2) : word of SYSTEMID. 
1D A2 80 8F 88 eer ree BISB #*x80, SBSB_SYSTEMID+5(R2) : Set high bit on in SYSTEMID. 
00000000°GF 7D cor 76 MOVa G*EXESGQ systin ~ 3; Copy current time to boot time 
CA C3 76 SB$Q_SWINCARN(R2S : of this port. 
CA D4 C36 708 CLRL tte _CSB(R2) 3; Clear lin to newest CSB. 
734 770 3; Here Link System Block onto system List. 
50  Q0000000'°GF DE 35 Ak MOVAL G*SCS$GQ_CONFIG,RO ; RO => Systemwide List head of system 
3 ocks. 
04 30 6¢ 0 £60 774 INSQUE (R2),@4(RO) 3 Queue to tail of List. 
0 1 O C64 2775 MOVL S*aSS$_N NORMAL ,RO 3; Indicate success and 
0 cor o76 $B 3 return to caller. 
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PB WALLOC PAIL: 

SB-ALLOC "FAIL: 
CLR RO 
RSB 


; Indicate corte and 


return to caller 


a 
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C68 2783 .SBTTL + UPDATE_PB_SB | 
8 oe i | 
C6B 27 § ; UPDATE _PB_SB = routine to update fields in the PB (and potentially the SB) | 
C68 f ; aftér the data has been obtained. | 
£68 7 ; ; Inputs: 
C6B 2790 ; RS => UCB 
C6B 2791 
C68 P88 UPDATE _PB_SB: 
C6B 279 
20 8 84 C i) C 794 MOVL UCBSL_PDT(RS) ,RO 3 RO => PDT. 
FC CO) =O 79 MOVL  PDT$L~PU_SB(RO) ,RO + RO => SB. 
14 ~«1 C7 79 BEQL 10$ 3; EQL means we failed to alloc SB. 
50 14 A0 00 444 ad MOVL SBSL_PBCONNX(RO) ,RO ; RO => PB. 
08 EF OC7B 2799 EXTZV rie lbh ; Extract Port Type returned by hardware 
0 peep 500 #PS2_s abba Pe ; initialization of controller. 
0080 C5 C7E 01 UCB$Q_PORTSTEP2(R5),- 
14 AO oc8t 80¢ PBS! _RPORT_TYP(RO) | 
00 =CCEF set 804 EXTZV #PS4_V_UCODEVER,=- ; Extract ucode version returned by 
0c8 805 #PS4_S_UCODEVER+= ; hardware init of controller. 
pcee 806 PS4_S CNTRLTYP,=- 
0088 (5 OB 0c85 2807 UCBSQ_PORTSTEP4(R5) ,- 
O89 808 PBSL_RPORT_REV(RO) 
C8B 809 10$: | 
0c8B 2810 RSB ; Return to caller. | 
| 
| 
| 
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| 
c8&c 18 -SBTTL + ALLOC_POOL 
tae 58] | 
céc ig i* ; This subroutine allocates and zeroes nonpeged pool. 
c8c 18 3 is assumed here that he call here is always made from a called 
csc V3 nternal subroutine, impl ying that two return points must be. popped 
: : 18 3 off the stack if the thread is suspended. 
: : Y ; Inputs: 
c8c § : R1 -# bytes of pool to allocate 
¢ é 7 3 RS “Addr of UCB 
C : 5 ; Outputs: 
C8C : : RO -0/1 for fail/success 
c8c 8 3 R1 -# bytes actually allocated 
c8c 3 R2 “Addr of buffer allocated 
‘ee Saat | 
gcee : § ALLOC_POOL: 3; Allocate and zero pool 
009C 8 a * cee 8 : oe ucesL. DPC(RS) : Sonenber r return 
00000000'GF 16 0C93 ; $ JSB a) peace + Allocate iron nonpaged pool 
1150 €9 QC99 28 BLBC : Skip clearing structure if failure 
37 se c9C ; 8 PUSHR #*M<RO,R1,R2,R4,R5> 3 Save MOVC registers 
62 51 00 6€ 00 C OC9E 9 MOVCS #0, (SPS ,#6,R1, (R2) ; Zero initialize structure | 
BA OCA4 40 POPR #°A<RO, R1 Re. Ra an 3; Restore we registers 
53 a CA 41 POPL 3; Restore R35. 
009c D5 1 CA *g JMP SUCBSL_DPC(RS) ; Return to caller. 
CAD 43 108: : Here we suffered an allocation failure. 
~ rf: ; Prepare to wait awhile before trying 
3 again. 
QOOAO C5 ‘$1 CAD rt MOVL #] yces, tt ALLOC (RS) : sate size of block to allocate. 
5 BEDO OCB2 4 POPL UCBSL (R5) ; Pop given R3 into save area. 
1405 54 CB6 48 MOVL R4 Mert ERE CRS) 3 Save R4. 
Oc AS 8EDO oy $3 POPL UCBSL_ FPEC(RS) : Save caller's caller's return. 
53 24A5 00 OCB 51 MOVL B20 &: CRB(RS) ,R3 R3 = 
1C AS =—OD1°AF a cc 26 MOVA 1 ot, TOUTROUT(R3) : Teeepitek’ ues routine. 
a. cc 5 ADDL LTRs 3 Establish a small delay. 
60000099"s cc9 54 ¢ aE LOE DE IM 
18 A3 cce 38 GrEXESGL ABst ny: 
05 cog 26 si RSB ; Evaporate for awhile. | 
Col 2858 " —« SETIPL #IPL$_SCS : Lower IPL after wakeup. 
55 10 A3 0 CD4 5 MOVL CRB BS “AUXSTRUC(R3) RS 3 RS => UC 
19 1 OCD8 60 CMPB DYNSC_U 3; Determine mw Fa 4g “UCB or PDT. 
OA A CDA 2861 BSB_TYPE(RS) | 
05 13 OCDC 6 BEQL : EQL implies UCB. 
55 o0opc cS 00 2 o 308: MOVL POTSL_UCBO(RS) ,R5 : if POT, 90. one level deeper so that 
#612 AS 9E 43 68 . MOVAB CRBSC’ TOUTROOT (R3) + Restablish null wakeup routine. 
1 A 0 OCE9 MOVL UCBSL- LLOC(R5),R1 3; Restore R1 = size of block to alloc. 
, 53 00g he D tee 83 mova UCBSL ~FRECRS) CRS 3; Restore R3 and R4. 
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; CAS DD PUSHL  UCBSL_FPC(RS) : Re-establish caller’ i | 
009¢ t 63 op of rg 3800 PUSHL  UCBSL~DPC (RS) t Beastebliee Saliae"a Setue oe 
1 BRB ALLOC™ POOL Go try again 


| 
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CFB 73 5SBTTL UNIMPLEMENTED FORK PROCESS CALLS 
CFB 74 FPCSACCEPT 
CFB 75 FPCSAL LOCDG: : 
CFB og FPCSDEALLOCDG: : 
pcre 77 FPCSMAP:: 
CFB 8 FPCS$MAPBYPASS: : 
OCFB 79 FPCSMAPIRPBYP: : 
OCFB 2880 FPCSQUEUVEMDGS:: 
OCFB 2881 FPCSREJECT:: 
OCFB Ho FPCSREQDATA 
CFB 2883 FPCSSENDDATA 
CFB se FPCSSENDDG: : 
CFB 5 FPCSSENDMSG: : 
OCFB 2886 
OCFB 2887 FPCSREADCOUNT:: 
OCFB 2888 FPCSRLSCOUNT:: 
OCFB 382 FPCSMAINTFCN: : 
OCFB 2890 FPCSSENDRGDG 
OCFB 2891 FPCSSTOP_VCS:: 
OCFB 2892 BUG_CHECK UDAPORT , FATAL 
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MRESET and MSTART “SEP=1984 DRI 


onnections and then does a HARDWARE INIT of the port. 
: EPCSMSTART is a NOP. 


Inputs: 
; R4 => PDT 
Outputs 


Ait registers preserved hoyexer 


cal s ,returnes to before the 
thread started by FP CSMRESET 


ler i 
finishes. 


FPCSMRESET:: 
PUSHR #*M<RO,R1,R2,R3,R4,R5> 


MOVL  PDT$L_UCBO(R4),R5 
BSBW  POST_POWER_FORK 


; Save caller's registers. 
; R5 => UCB for port. 


3F 3 
55 0O0DC C4 3 
FSBA 3; Start chreat to call error routines 


VGIOVIGVAAHOAAAAOAAAAAAOOOOO 
COON TNT TTT no 


Oo 
=4 
ooo 
@ 


and to do hardware init. 


3F #*M<RO,R1,R2,R3,R4,R5> ; Restore caller's registers. 


s COOCOCOCOCOCOCOOCOCOOCOOOOOCOOO 
DDOOOK TTT nnn 


3¢ SBTTL MRESET and MSTART 

Be ‘temo = causes connection ERROR ROUTINE to be called for all open 
2 
2 
2 


WOWOOOOOOOOOOOOO0OOO® 
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SS S38 


POPR 
FPCSMSTART:: 
RSB ; Return to caller. 
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\~h~- 4-4-4 -4-4 4-4-4444 4 4 
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PCSCONNECT, COMPLETE PROCESSING A CONNECT 


This routine is JMP'ed to from SCSSCONNECT with a CDT allocated 
(and in the closed sta ¢) and lore cet tzes with the SYSAP's 
connect parameters or O's for fields not yet used. FPCSCONNECT 


does port-specific processing. 


The UDA port driver only eepoerss 9 one connection at a time. The first 


chine that Nig tay | ghee 
on thi 


s for is that there are no current connections 
S$ port. Then if there are none we check that the target of the 


connection is one of the ones supported. If so, then the nitial credits 
allotted to this connection are granted, the connection ID is saved, the 
CDT address is stored and the CDT state is set to open. 


Inputs: 

R3 “Addr of CDT 

RG “Addr of PDT 

COT initialized as follows: 

CDOTSL_LCONID “Local conid 
MSGINPUT “Addr to call in SYSAP for rec'd msgs 
DGINPUT “Addr to call in SYSAP for rec'd dgs 
ERRADDR “Addr to call in SYSAP for connection errors 
RSTATION “Remote station addr 
PDT “Addr of PDT 
MINSEND “Minimum send credit A+ I ~. SYSAP 
INITLREC “Initial credit extende Pa YSAP 
DGREC “Initial # of dg’s queued 
STATE -CLOSED 
PB -Addr of selected PB to remote system 
WAITQFL/BL -Set to show no entries 
RPROCNAM “Addr of dest process name 
LPROCNAM “Addr of local process name 
CONDAT “Addr of connect data 

other COT fields -0 

(SP) “Return PC in SYSAP 

Outputs: 
RO “Status: SS$_NORMAL, SSS$_FAILRSP, 
SSS"REJECT, SSS_INSFMEM 
R1 “Reject reason or fail response reason 
f RO = REJECT or FAILRSP 
R2 ‘ “Addr of ACCEPT_REQ if RO = success 
other registers -Preserved 


CDOTSL_RCONID = UDA virtual circuit number 


-ENABL LSB 
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Name yi UOA vc 0 


97 ; 
38 VCON -VCONAM 3 name engsh 
3f8 VEINAMEE “ASCII (arerer en 3; Name for * ve 1 
979 VCINAMLEN = 3 name ongse 
980 WCQNAR: “ASCII }DUP/ 3; Name A. DA vC 2 
3 1 VCONAMLEN = .-VC2NAM 3 name length 
g FPCSCONNECT:: 
+H MOVL FUCBS, UCBO(R4),RO : RO = 
9 § BBC v9 ONL INE. fay ae if offline. 
987 §TS(RO) ,CON_NO_NO ont 
989 SCHK_COTSTATE. - 3 uy ty A be cor ig 
990 LOSED,=- 3 os not, 
931 ERROR=STATE_ERR : caller + * a. 
993 : If the desired process name is MSCPSDISK, MSCPSTAPE or DUP, then the 
238 3; connection can be completed. 
996 ° PUSHL R3 ; Remember R3=>CDT. 
997 BBS #UDASV_STOPPED,- :; Only allow Connections to DUP if 
398 | UCBSB ODAFLAGS (RO), - ; Port is closed. 
000 CMPCS tye VCONAM,#*A/ /,- 
001 #16,aCDT$L * RPROCNAM(R3) 3; Is the connection to MSCPS$DISK? 
Oos BEQL CONVCO : If yes make connection to VCO 
004 MOVL (SP) ,R3 ; Refresh R3 => CDT. 
005 CMPCS #VCINAMLEN, VC1NAM,#*A/ /,- 
006 #16,aCDT$L *RPROCNAM(RS) : Is the connection to MSCPSTAPE? 
th BEQL CONVC1 : If yes make connection to VC1 
009 MOVL (SP),R3 : Refresh R3 => CDT. 
010 TSTVC2: 
011 CMPCS #VC2NAMLEN, VC2NAM,#°A/ /,- 
Og #16,aCDTSL_ RPROCNAM(R3) : Is the connection to DUP? 
01 BEQL CONVC2 : If yes make connection to VC2 
014 POPL R3 : Remove R3 from stack. 
015 CON_NO_NODE: 
BIg G*SCSSDEALL_CDT : Free R3 => CDT. 
4 set #SS$_NOSUCHRODE ,RO : Indicate No Such Node. 
O18 CONREJ: : 

0 JSB G*SCSSDEALL_CDT ; Free R3 => CDT. 
3 1 nee. #SS$_REJECT,RO ; Otherwise reject connection 
0 ‘ CON_NO_LISTEN: ; 
3 4 G*SCSSDEALL_CDT ; Free R3 => COT. 

5 MOVZWL #SS$_NOLISTENER,RO : Indicate No Such Listener. 
0 § RSB : 

§ : Make a connection to MSCPSDISK which is virtual circuit 0 for a 

Ss Sees 

1 CONVC2: 

2 MOVAB PDTS$L_PU_VC2(R4) ,RO ; Setup for common code. 


F 13 


PUSHR Fp! Re R3,R4,R5> 


MOVCS 
set senc$s ~§cSCnaner F,(R2) 
POPR #*M<R1,R27R 


MOVB SYSGEN_PARAMETER 
SCSCMGSB_ SNDATA#4 (R2) : Copy Allocation Class. 


— 5 GSSS_NORMAL RO 
moyas SCSCMG$S_SCSCMGDEF (SP) ,SP 


Save MOVC registers 
Zero initialize structure 


; Restore MOVC registers 


Set normal completion 

Call back Caller as co-routine. 
Free up stack space. 

and return 


-DSABL LSB 


COOOCOO8 OO NI NINN NNN NNO 


DRIVER 16-SEP-1984 01: AX/VMS Macro V04-00 Page 68 — 
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51 ogre 8 4 D&C 3 MOVAB pot sy PU_CRED2(R4),R1 ; Initial credits to assign. 
7, 2 D91 4 MOVL ; Remote connection ID. 
1B SO 444 5 BRB CON. COMMON 3; Branch around. 
D96 S CONVC1: 
50 O0E8 C46 9E 0096 3 MOVAB PDT$L_PU_VC1(R4) ,RO ; Setup for common code. 
51 QOF6 C4 3 D MOVAB PDT Si PU-CRED1(R4),R1 : Initial credits to assign. 
5 01 OO DA 40 MOVL ; Remote connection ID. 
oc «6171 * rf BRB tone COMMON 3; Branch around. 
DA 828 CONVCO: 
29 QOOES C4 SE ODAS Bee MOVAB PDT$L_PU_VCO(R4) ,RO 3 Setup for common code. 
1 OOFS C4 9E DAA 45 MOVAB PDTS$W “PUZCREDO(R4) RI : Initial credits to assign. 
52 04 ODAF 6 CLRL R2 ; Remote connection ID is zero. 
DB1 47 CON_COMMON: 
23 8EDO 0DB1 48 POPL RS 3; Refresh R3 => CDT. 
0128 C4 2 €1 QDB& 3049 BBC R2, verse SERVERS(R4),- ; See if this Server supported at this 
g] DB9 3050 CON LT 3; port. If not, branch. 
0127 C4 2 €2 ODBA 3051 BBSS Re PTS CONBITMAP(R4),=; are oberreceendine bit in bit map 
AF ODBF b2¢ CONREJ : f al reedy set, reject. 
60 53 oO ODC 05 MOVL aa’ coy 3 seve address of CDOT for vtx 
14 A353. 52 00 ODC 054 MOVL cpr ee RCONID(R3) 3 Set virtual circuit number into COT 
N NOCU N ; Increment # of current connections. 
0126 (46 «(96 p¢ 055 INCB Potse. OCURCON(R4) I f i 
VW W_SEN ; Put in initial send credits. 
40 A3 61 B0 4 bee MO (R1) ,CDTSW_SEND(R3) P in initial d i 
0¢ BO ODC 059 MOVW #COT$C_OPEN,- 3; Move CDT state to 
28 A 4 Bey COTSW _STATE(R3) 3; open 
ODD bo¢ ; Here we make room on the stack to create a Connect Message to return 
ODD 06 : to the caller. In order to get control eteer the caller is finished 
44 bee 3 with the Connect data, we call him back as a co-routine. 
51 8EDO ODD 066 POPL R1 3; R1 has callers return point. 
5E DO AE 9E ODD 067 MOVAB 1 | peat eeraetnarteaail ; Create space on stack. 
=. 6F 00 ODD 068 MOVL SP,R2 3: R2=>Connect data area. 
ODD 069 
ODD 070 
DD 071 
DE 0 § 
DE 0 
ODE 074 
DE o é 
0 
079 
080 
a 
OB 


Se 
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* arent PROCESS A DISCONNECT ca | -SEP-1984 t $0; 93: 3 DRIVER. SRCIJPUDRIVER.MAR; 1 . (5) V 
-SBTTL + FPCSDCONNECT, PROCESS A DISCONNECT CALL 
ts FPCSDCONNECT is con leg by the SYSAP. It may be called only from the 
39 ; open state. The CDT is moved to the closed state. 
Inputs: 
RO “Disconnect reason 
$ R “Addr of CDT being disconnected 
° -Addr of PDT 
Outputs: 
“Status: SS$_NORMAL, SS$_ILLCDTST 
3 R1,R2 “Destroyed 
= other registers -Preserved 
FPCSDCONNECT:: 
26 AS = 550~—S—s—s«éwWOD MOVW RO, corey. _REASON(R3) 3; Save disconnect reason 
SCHK_CDT STATE 3; Assure that CONNECTION is open. 
ERROR= =STATE_ERR 
00 8680 MOVW #CDT$C_CLOSED,- ; Move state to closed 
28 A3 CDT$W_STATE(RS) : | 
0126 C4 «97 DECB PDT$B_NOCURCON(R4) 3; Decrement # of current connections. 


1403 02 OO EF 
00 0127 (4 50 €&4 


EXTZV #0,#2,CDTSL_RCONID(R3),RO; Get index of CDT pointer for connection. 


108 BBSC RO,PDTSB_CONBITMAP(R4),10$ ; Clear the connection active bit 


:; The following two instructions save the available credits on the equnece ven 
3; that we are disconnecting so that we can later re-connect. This 

; useful if dis-connecting and later re-connecting do not have an FPCSMRE ET 
3; done in between. FPCSMRESET re-inits the credits for ptt poss 

3 connections (in INIT_PU_PDT, called from HARDWARE INIT). 


MOVAW PDTS$W_PU_CREDO(R4)CROJ,R1; R1=> Repge ttery of credits for this 
; connection ID. 
MOVW CDTS$W_SEND(R3),(R1) Save current credits for later connect. 
3: End of code that saves available credits. 


MOVAB NULL_COT,- 
PU_CDTARY(R4) CROJ 
DEALL_CDT 


ONORNAL., RO 


51 OOF4 C440 3E 
61 40 A3 60 


Reset ptr. 
Deallocate R3 => CDT. 
Normal return status. 
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NOUR —OOONOUES WN 3 O OONOAUS WN" OOONAUES WAR) O OONAULS UT 
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DO DW HOM MO DWONPINIMINIMINIMNININVIO O HARI OMT nt ad dd tt tt tt tt ot 


ee ee ee ee ee ee ee a ed ed ed ed ed ad nd ed = OOOO 


JSB G 
MOVZWL S 
RSB 


SEQUENCED MESSAGE CALLS 
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TTL SEQUENCED MESSAGE CALLS 
TTL + FPCSALLOCMSG, ALLOCATE A MESSAGE BUFFER 


FPCSALLOCMSG is ope inized for the case where all resources that are 

allocated are available. FPCSALLOCMSG first checks the state of the 
CONNECTION to assure that it is “Rr Then it allocates a send credit 
and a buffer. Finally it points R2 at the application (MSCP) portion 
of the buffer, stores R2 in CDRPSL_MSG_BUF and returns a success code. 


Exceptions to this flow are handled out of Line. 


deal if the CONNECTION state is NOT open, we return the SS$_ILLCDTST 
status. 


If no send credits are available, the thread is suspended on the 
CDTSL_CRWAITOQBL. 


Finally, if no buffers are available, we first try to scare some up by 
calling internal subroutine POLL CMDRING, which polls the command ring 
to free up slots and buffers. If upon return from this call, a buffer 
is available, we simply rejoin the mainline code. If however, buffers 
are still NOf availa le, we return the previously allocated send credit 
and suspend the thread on PDTSL_BUFOQBL. 


Upon pepunpt ten of threads from either of these wait Q's, we simply 


branch back to the start of the routine and try all over again. 
Inputs: 
R4 “Addr of PDT 
RS “Addr of CDRP 
CORPS$L_CDT “Addr of CDT 
Outputs: 
RO “Status: SS$_NORMAL, SS$_ILLCDTST 
R1 seacreres 
R2 -Addr of message buffer, if status=success 
Other registers -Preserved 
CORPSL_MSG_BUF -Addr of message buffer, if status=success 
FPCSALLOCMSG: : 
MOVL CORPSL_CDT(RS) ,R2 Get CDT addr 
SCHK_CDTSTATE = Verify connection state 


OPEN,=- S open. 
ERRORSSTATE_ERR,~ Else report error to caller 


DECW cp Teu_SEMD{Re) ; Allocate the send credit, 
BL 0$ 3; LSS means no credits available. 
+ ae Rg SLPU_FOFL CAA) RO ; RO => free buffer 


: VS implies NO buffers. 
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Se 


= 
oOo 
e 


INCW  CDT$W_SEND(R2) ; Return improper allocate. 


CORPSC_SAVD_RTN(RS) 


SSUSP_S 
PUSHL CORPSL_SAVD_RTN(R5) 
BRB FPCSALCOCMSG 


18 a3 8EDO 


18 AS DD 
= WW 


3; Save high level return. 

3; Suspend on R1 => wait Q element. 
; Restore high level return. 

; And go back to check on credits. 


E47 3196 108: 
52 1A 43 E47 138 MOVAB UDABST_TEXT(RO),R2 3; R2 => MSCP portion of buffer. 
1C AS 3 £48 198 MOVL R2,CDRPSL pes Bye (nS) ; Return to caller in CORP as well. 
50 g E4F 199 MOVZWL S*#SS$_NORMAL-R : Success return. 
E 9 RSB 3; And return. 
E 20$: 
51 3C a DO OE : MOVL COTSL_CRWAITQBL(R2),R1 ; R1 => where to INSQUE to await credits. 
1 +44 : 308: BRB 40$ ; Branch around to common suspend code. 
0362 30 F3¢ $ BSBW POLL_CMDRING 3 Rectate relossed buffers from 
3 comman n 
50 0108 04 OF OESC 8 REMQUE @PDTSL_PU_FQFL(R4),RO ; Agein try "tor RO => free buffer. 
E4 1C 0E61 09 BVC : implies buffers. Branch to mainline 
24 AS dO bees 10 MOVL CORPSL_CDT(R5S) ,R2 3; Refresh R2=>CDT after call to POLL CRORING | 
51 011C C4 00 434 i) MOVL PDT$L_PU_BUFQBL(R4),R1 : R1 => where to INSQUE to await buffers. 
B6 OE6C i 
pe ge 14 
0E73 15 
OE8B 3216 
OE8E 3217 
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.SBTTL + FPCSDEALLOMSG, DEALLOCATE A MESSAGE BUFFER | 


FPCSDEALLOMSG resets the message address s ecified by the ge to 
the top of the message buffer and clears CDRPSL_MSG_BUF. 

decides whether to insert the free buffer onto the RESPONSE ‘RING 

or onto the free Q of buffers, with the pat ag OS RING having perects P 
and being selected whenever it is not ent roty ty L. hi = ESPONS 

RING is full then the buffer is INSQUEd onto ore PU_F 


If this INSQUE represents the first buffer on the free Q, then 

9 ag to resume any threads waiting for buffers (PDT$L_PU "BUFOFL) 
While the free Q@ remains non-empty and there exist threads waiting 
for BAY we continue to resume the threads until either we run 
out of buffers or we run out of threads to resume. 


ppterna’ entry yeorne ¢, Q_DEALLOC_BUF is called from POLL_CMDRING after 
R2 has peer nted at the buffer header. Also internal entrypoint 
INSERT_IN_RRING is called from INIT_PU_PDT at CONNECT time in order to 
aon thee RESPONSE RING. 

nputs 


RG “Addr of PDT 
R5 “Addr of CDRP 
CDORPS$L_MSG_BUF “Addr of message buffer 


Outputs: 
. Re -Destroyed 


Oth registers -Preserved 
CORPSL.. MSG_BUF -Cleared 


FPCSDEALRGMSG:: 
SUBL #UDABST_TEXT,R2 ; R2 => buffer header. 
BRB Q_DEALLOC _BufF ; and branch around to common code. 

FPCSDEALLOMSG: : 


SUBL3 M#UDABST_TEXT,- 
CORPSL_ASG_BUF 
CLRL CORPS$L_MSG_BUF 


FPCSQUEUEDG: : 
Q_DEALLOC_BUF : 


CMPB supank RINGSIZE,- 

PDT$B_RRINGCNT(R4) 

BLEQ INSERT _IN_FREEQ ; LEQ implies full. Goto put on free Q. 
INSERT_IN_RRING: ; Here R2 => buffer to insert. 


EXTZV #0,#UDASK_RINGEXP,- ; RO = index of slot to use in response 
PDTSB_RRINGINX(R4S,RO : ring. 


MOVB -UDAB$B_BUFFNO(R2),- 
PDT$B “RRCONTENT (R4) CROJ 


R5),R2 ; R2 => buffer header. 
R5) Prevent spurious deallocates. 


Called here from Pout. aChORING, 
with R2 => free bu 
:; See if response ring 1s" full up. 


10 
0125 C4 
2A 


SPY SP OOOO OOOOOODOODOOOOOOOOOODOOOODODOODOOODODOOOOOOOOONOO 


MM MMMM MM MMMM MMMM MM MMMM MMMM mmm mem rcenicnicnievnievyeeviwevvevvevvevwevecvwevieveevweevweveevie ry 


04 00 EF 
50 0123 C4 


90 3; Label new contents of this slot. 
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Ig-SEB-1984 
+ FPCSDEALLOMSG, DEALLOCATE A MESSAGE BU 5-SEP-1984 
MOVB RO, UDABSB_RINGINX(R2) 
MOVB #1,UDABSB-RINGNO(R2) 
ASSUME UDABSB_CREDTYPE E 
ASSUME UDABSB CONID. 
MOVL #UDABSC_LENGTH=UD 
UDABSW_MSG_LEN(R2 
MOVL §UDABSL_DESCRIP(R2) ,- 
TSL_RSPRING(R4) CROJ 
INCB PDT$B-RRINGINX(R4) 
INCB = PDT$BRRINGCNT(R4) 
INSERT_RTN: 
RSB 
INSERT_IN_FREEQ: 
INSQUE UDABSL_FLINK(R2) ,- 
PDTS$L~PU_FQBL(R4) 
BNEQ  INSERT-RTN 
10$: 
$RESUME_FP - 
@PDTSL_PU_BUFQFL(R4),- 
QEMPTY=INSERT_RTN 
CMPL = PDT$L_PU_FQPTR(R4),- 
PDTSL_PU_FQFL(R4) 
BNEQ 108 
RSB 


Q 
Q 
SeST TERT 
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3; Remember where this buffer is for 
; debugging. 


UDABSW_MSG_LEN+2 
UDAB$B_CREBTYPE+1 

Po : Initialize response buffer 
: length and zero credits, 
3; type and conid. 


; Fill in command ring slot. 


Next time use next slot in ring. 
Increment # slots in use. 


3; And return to caller or caller's caller. 


; Insert free buffer onto free Q. 
; NEQ implies not first buffer on Q. 
; Resume first thread awaiting buffers. 
3 Label to branch to if Q empty. 
Test for emptiness of free Q. 
f List points to itself, then empty. 


NEQ means NOT empty. so try to resume 
Return to caller if empty. 


 egmuaapesiocamaenencniatan nhs amaree nana  ae aI a eaSR a SS 
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x 
g 
+ FPCSRCHMSGBUF, RECYCLE ME 
+ AT HIGH PR 
+ FPCSRCLMSGBUF, RECYCLE ME 
+ ATL RI 


M cro V04-00 

ER.S RCIPUDRIVER. MAR; 1 
A 
R 
A 
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“AO ww 


/V 
IV 
S$ 
10 
SS 
OR 


FPCSRCxMSGBUF checks if there is at least one send credit. If 
not, the SYSAP is suspended until there is. FPCS$RC CMS GBUE then 
decrements the send credit. The watt. if required, places the 
SYSAP CDRP at the end of the wait queue for low priority and at 
the head of the queue for high priority. The address of the 
buffer being recycled is returned in R2. 


Inputs: 


RS “Addr of vr. 

R5 “Addr of CDR 

CORPSL _MSG_BUF “Addr of noseatl buffer 
CORPSL_CDT™ “Addr of CDT 


Outputs: 


RO “Status: SS$_NORMAL, SS$_ILLCDTST 
R1 -Destroye 

R2 “Addr oF message buffer 

Other registers -Preserved 


Se Se Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Se Ge Se Se Sse Sete Se 
f + 


FPCSRCHMSGBUF : : 


MOVL CORP SL. COT(RS), Ry 3 R1 => CDT. 
SCHK_CDTSTATE 3; Assure that connection open. 


OPEN 

ERROR= =STATE_ERR,- 
DECW COTS SEND(R1) 

10$ 


MOVL CORPSL_MSG_BUF(R5) ,R2 
Naa S“#SSS$_NORMAL ,RO 


51 24 A5 00 


; Test decrement a credit. 

; LSS implies there were none to give. 
; Return R2 => msg buffer. 

; Return status for caller 

; And return, 

; Here omy if allocation failure. 

; Restore from above test decrement. 
; Save first level return address. 

; Suspend this thread at HEAD of 
allocation wait list. 

: Restore first level return to stack. 
; Go back and try to allocate. 


INCW COTSW_SEND(R1) 
P CORPSC_ SAVD_ RTN(R5) 


seg 

“ COTSL CRWAITOFL(R1) 
PUSHL EDRPSE SAVD_RTN(RS) 
BRB F PCSRCAMSGBOF 

FPCSRCLMSGBUF : : 


MOVL CORPSL -CDT(RS), R1 
SCHK_CDTSTATE ~ 


EN 
ERROR: =STATE_ERR,- 
DECW  CDT$W_SEND(R1) 


eat 
So 
ed 
Sete Ge Se Sete Se Ge Sets tes 


51 24 A5 00 R1 => CDT 


Assure that connection open. 
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40 Al 67 Test decrement a credit. 
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19 OF4 BLSS 10$ 3; LSS implies there were none to give. 
52 1C Re 0 ahi $6 MOVL CORPSL_MSG_BUF(R5),R2~ ; Return R2 => msg buffer. 7 
50 1 f a poyeul. $*#SS$_NORMAL ,RO : Return status for caller 
: And return 
F4C 3 10$: 3 Here only if allocation failure. 
8 | F4C 0 INCW COTSW_SEND 3; Restore from above test decrement. 
18 AS BED F4F 71 OPL CORPSC_ SA " RRIN(RS) 3 Save first level return address. 
3s i $SUSP_SCS 3 means | this thread at TAIL of 
F5 7 acoTSL_c RWAITOBL(R1) 3 Llocation wait list 
18 AS DD OF6C 74 PUSHL  CDRPS$L-SAVD_RTN(RS) 3; Restore first level retare to stack. 
C1 3=11—=«OOF6F 75 BRB F PCSRCCMSGBOF 3 Go back and try to allocate. 
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F71 77  SBTTL + FPCSSNDCNTMSG, SEND COUNTED SEQUENCED MESSAGE 
F71 4 3; Inputs 
ot 8840 | RI ab t application 4: 
3 - tes o t t 
F71 3381 : RG aA ee 
F71 ¢ : RS “Addr of CDRP 
F71 ; CORPSL_CDT(RS) “Addr of 
F741  § CORPSL_MSG_BUF (R5) “Addr of message iyser portion) 
4 S$ 3 CORPSL_RSPTD(RS) “RSPID (to set RETFLG) 
of ‘ : Outputs: 
F71 § : RO “Status: SSS$_NORMAL, SS$_ILLCDTST 
OF71 90 ; R1,R2 “Destroyed 
OF71 3391 ; Other registers -Preserved 
OF71 $08 3= 
OF71 339 
OF 71 394 FPCSSNDCNTMSG:: 
OF71 3395 
50 24 AS DO OF71 396 MOVL conreee CDT(RS), RO ; RO => CDT 
ore? 44 SCHK_COTSTA My TE 3 gett connection is 
OF75 3399 ERROR=STATE_ERR,~ ; Else. report error to SYSAP 
Ore 3c01 _— 
14 C3 OF7 402 SUBL3 #UDABST_TEXT,- ; Point to buffer header. 
52 1C AS OF8 403 CDRP$L_ASG “BUFR R5),R2 3; R2 => buffer header. 
1C AS) 4 ore? the CLRL CORPSL_MSG_BUF (R5) 3; Prevent spurious deallocates. 
OF86 3406 ASSUME UDABSB_CREDTYPE EQ UDABSW_MSG_LEN+2 
OF86 3407 ASSUME UDABSE CONID EQ UDABSB- CREBTYPE+1 
10 A2. 51 DO OF86 3408 MOVL 1 UOABSu gnsé Gah FNcn2) ; Put message Tength in header. 
14 AO 90 OFBA 3409 MOVB Cotse 3; Put remot: connection ID in message 
13 A2 he *19 GDABSB™ pal ptt 3; header. 
10 AS 53 Ore tig MOVQ R3,CORPSL_FR3(R5) 
Oc AS 8EDO ores aiz POPL CDRPSL_ FPTC(RS) : Save context in CDRP. 
10 91 OF97 3415 CMPB #UDASK_RINGSIZE,- : See if any slots available in command 
0122 ¢4 OF99 3416 PDT$B_CRINGCNT (R4) ; ring. 
2A «15 OF oE eit BLEQ CRING_FULL ; LEQ implies ring full. 
| OF9E 3419 INSERT_IN_CRING: ; Called from POLL_CMDRING with 
43 $31 : R2 => buffer. 
04 OO EF Bree 4 ¢ EXTZV #0, #UDASK_RINGEXP,- ; RO = index of slot to use in command 
50 0120 C4 OFA1 34 PDTS$B_ CRINGIN X(R45,RO =: ring. 
OFAS 3424 
FAR 425 
FA 4 ¢ 
OA re} 90 OFAS 34 MOVB UDABS$B_BUFFNO(R2) ,- 3; Label new contents of this slot. 
012C C44 FAB 4 4 PDT$B_CRCONTEN T(R4) CROJ 
FAC 34 § ASSUME UDABSB_RINGNO €Q UDABSB_ RINGINX+1 
08 A2 50 9B OFAC 34 MOVZBW RO,UDABSB_RINGINX(R2) Remember where this buffer is for 
FBS r 8 : debugging. 


es 


vou=000" 


1 
+ FPCSSNDCNTMSG, SEND COUNTED SEQUENCED 3 
440 ENABLE_COMMAND_ 
4 MOVL 


FB 
a 
F 


OC A 
0248 (44 
51 0100 C4 00 
50 661 ~=—B0 
o1$8 C4 96 
0122 (4 96 
05 
62 OE 
0114 D4 
OEE 30 
05 
F4A2 «30 
Oc A200 
0248 (440 
FFD9 = 31 
OO00001E 


” 
ow 


ENABLE_ COMMAND _END: 
MOVL ~ PDT 


@ODwowoww 


; The “eee instructions (commented 
UDAPORT , FATAL 


INSQUE UDABSL_FLINK(R2),- 
Lapu SNDOBL (R4) 


ENABLE _COMMAND _CODE : 


TRACE_COMMAND 

UDABSL DESCRIP(R2),- 
PDT$L_CMDRING(R4) CROJ 

ENABLE COMMAND_END 


ENABLE _ COMMAND _OF F SET=ENABLE_COMMAND_CODE-ENABLE_COMMAND_START-3 


COOOCCOOCOSOOSOOSOSCOOOOOOOSOOOOOOOOOOOCOO 
Sass Pena Bena na de Bena Bona once ao Dona encase Pca Dona Ponca Iona fone Dona Dona Iona fons oa fa na Bon. fonca na sa ona ona) 


VVIVOIVIOI GF GGG VINAAAAAAMAAQOAQAO 
MMO NE & 4 BOOS PP OM OOOO NNW HO NINN 


FS OS oF Se ee ee ee oe eS NN 
MEW O OONAUE WN 0 OONOUS WN OOONOUS 
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Fill in Rg woe As slot. 

NOTE, s instruction copied below 
to stlow for dynamic patching to 
enable tracing. 


R1 => UDA CSR. 

+390tg controller mogrecer to force 
tine of command r 

Next time ve next elon in ring. 

Increment # slots in use. 


And return to caller or caller's caller. 


out) were useful in debugging only. 


EQL means ring full not overflowed. 


5 Mere we hove svertleved commend ring. 


; Insert onto tail of backed up buffers. 


Free up htt possible slots in 
command rin and dequeue from SND Q. 
Return to caller's caller. 


If we enable tracing, the driver will 
ENABLE COMM Rost ocation 
ENABLE_COMMAND_START to BRW here. 

Copy command buffer to trace table. 


Fill in command ring slot. 


; Branch back to normal stream. 


4 
ogo 
m 
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3+ 
; FPCSMAPIRP = map 


; Inputs: 
; R4 => PDT 


CORPSL_UBARSRCE filled in with a) 


RO-R2 destroyed 


; Outputs: 
: Other registers preserved. 


498 FPCSMAPIAP:: 
CLRL 


DOOOCCOCOCOCOOCOOOOOOOCOOOOOOOOCOO 
basa fons Bon Bea Dona Boia Pca Dracaena mca bona Pena ona ena Perna Deca fonca ona Pea onan osama ona ca 


3C AS D4 CDRPSL_UBARSRCE(R5) 3 

18 AS 8ED0 POPL CORP$L_SAVD_RTN(RS) : 

FIB3 DF = 16 JSB @REQDATAPATH_TV : 
OOO0O0000'GF 16 JSB G* IOCSREQMAPUDA 

00000000 ' GF J5B G* IOCSLUBAUDAMAP i 


Here we fill in the local buffer handle. 


We calculate t 
value into the @CDRPS$L_LBUFH_A 


MOVZWL CORPSW_BOFF(R5) ,RO : 


BICB #1 RO . : 


#9,#9,R0 : 


MOVL § CDRPSL_LBUFH_AD(R5),R1_ ; 
MOVL  RO,(R1)+ : 
cLRO— (RI) : 


WAWWAWNNWIAANAAANAA.AAWAAAWNANAIANIANAIAIAINI INNA ANIA ANIAN AAA NANI 


PAA AAA AI 


——QOOCKKCOCO MTN NHN HH NNN HMMMMMMoOOOCVCVUVTVVTVCVCTVCTVCTVCVTVTTCVTVTVTCSJ 
PIMNPINININININ 2 2 OOO KH OOOO OCOOCOCO NO 


at ot ot I I 4 IQOODOOOOOCOOOOSCSO 
NOU WR CO OONAUE WN CO DONOAUS WMO” 


COSC COCOCCOCO FFT Fn 


JMP @CDRPSL_SAVD_RTN(RS) —; 


resources get mg to this transfer are currently in CDRP$L_UBA 
UNIBUS BUFRCAD. address of the transfer and put this 


INSV corr at UBARSRCE+UBMD$B_DATAPATH(RS) ,= 


PUDRIVER 16-SEP-19 4 1:05:05 VAX/VMS M v04-0 P 78 
VOen O00 + FPCSMAPIRP, Map a buffer ~SEP=1984 00:17:10 LDRIVER.SaepuDRiver.mar:1 / 29° 78) 
FDE 7 -SBTTL + FPCSMAPIRP, Map a buffer 


a user buffer given IRP (CDRP) values. 


R5 => CORP 
CORP$L_LBUFH_AD => area to fill in with UNIBUS virtual address of 
user buffer. 


datapath assigned, b) # UBA map 


registers assigned, c) Ist map register 
@CDRPS$L_LBUFH_AD filled in with UNIBUS virtual address of user buffer 


Initialize. 
Save return for two level process. 


Allocate datapath, if any available. 


; Allocate map registers. 


Load map registers for this transfer. 
A description of the UBA er) ce 
RC 


Calculate UNIBUS virtual address of 
user buffer. First get byte offset. 


Place data ath number in Hg byte. 
Clear low bit in case of odd address. 


INSV CORPS$L_UBARSRCE +UBMD$W sae yet ° 


a > order of UNIBUS virtual 
address is map register #. 
Ri => destination for buffer handle. 


Write "UBA’’ buffer 
handle and zero out rest. 


Return to top level caller. 


DRIVER 16-SEP-1984 01:05:05 VAX/VMS Macro v04-00 P 
vOu=000 + FPCSMAPIRP_UV1, Map a buffer for uVAX B78Ep=19 4 80:97:90 DRIVER. SRCIJPUDRIVER.MAR; 1 ee 


-SBTTL + FPCSMAPIRP_UV1, Map a buffer for uVAX I 


+ 
FPCSMAPIRP_UV1 = map a user buffer given IRP (CDRP) values. 


; Inputs: 
R4 => PDT 


R5 => CORP 
CORPSL_LBUFH_AD => area to fill in with UNIBUS virtual address of 
user buffer. 


Outputs: 

CORPSL_UBARSRCE filled in with a) datapath assigned, b) # UBA map 
registers assigned, c) 1st map register 

@CORPSL_LBUFH_AD filled in with UNIBUS virtual address of user buffer 


RO-R2 destroyed 
Other registers preserved. 


FPCSMAPIRP_UV1:: 
CLRL 


MOVL PUSL_MPAYAD, (R1)+ 3; and physical address of the pseudo 
(R1) 3 map registers and zero out rest. 


JMP @CDRPSL_SAVD_RTN(RS) ; Return to top level caller. 


SH ee eee ea ah ah ah ab db ah dh ah dh hb db dh ah ah ah dh ab db ah ah eb ah) ah ah alee ee ee 
SSNS SSNS DE DDD DDS DDD DS TTT Be BS BE BB EB ENNIO 
CONAN EWN OS OOO NAME WN A OOD NAUE WN 9 OONOAUES WN O OO@NOUSWWNOO0 


ee kk et a tt a a bd — 2 — 2s bs 2 a bs bs 2 as as 2 4 2 ts 2 4 2 tt 


3C AS 4 CDRPS$L_UBARSRCE(R5) : Initialize. 
DO AS CEB BLBS CORPSW_BOFF(R5),- ; Branch around if Not word aligned. 
30 MAP _UNALIGN 
MAP_ODD: ; Label to allow branch back. 
18 AS 8EDO POPL CDRPSL_SAVD_RTN(R5) ; Save return for two level process. 
QO0000000'GF 16 JSB G* IOCSREQMAPUDA ; Allocate map registers. 
Q0000000'GF 16 § JSB G* LOCSLUBAUDAMAP ; Load map registers for this transfer. 
2 ; Here we fill in the local buffer handle. A description of the UBA poeere 
2 : resources assigned to this transfer are currently in CDRPSL_UBARSRC 
2 3 We calculate the UNIBUS virtual address of the transfer and put this 
§ ; value into the @CDRP$L_LBUFH_AD. 
50 DOAS 3C § MOVZWL CDRPSW_BOFF (RS) ,RO ; Calculate UNIBUS virtual address of 
: 3; user buffer. First get byte offset. 
3C AS OFO : INSV CORPS$L_UBARSRCE+UBMD$W_MAPREG(R5) ,- 
50 09 09 ¢ #9,#9,R0 ; High order of UNIBUS virtual 
3 ; _address is map register #. 
51 2C AS 00 33 MOVL CDRPSL_LBUFH_AD(R5),R1 ; R1 => destination for buffer handle. 
81 50 80000000 8F (C9 9 BISL3 #UQPORT_M_MAPPED,RO,(R1)+; Write BUS virtual address of buffer 
81 FO8F CF 00 41 
61 6 
8 
8 


1865 17 
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PUDRIVER 16-SEP-1984 01:05:05 VAX/VMS Macro v04-00 Page 
vO 008 + MAP_UNALIGN uVAX I Q-BUS Map Unaligned g7SEE 19 4 $534 710 CDRIVER.SRCJPUDRIVER.MAR; 1 . 
} rt 2 9 . -SBTTL + MAP_UNALIGN uVAX I Q-BUS Map Unaligned Buffer 
1048 2 ¢ 3; MAP_UNALIGN = routine to allocate hg Aligned Page (i.e. 512 physically 
1048 3; contiguous bytes) and to copy upto 512 bytes of user data to this 
: is 2 : ; buffer. Things to keep in mind: 
1046 5 § ; 1. Allocation of the Aligned Page is governed by PDTSL_PQ_POWNER. This 
1048 3587 ; Longword, if zero, indicates the Aligned Page is SvaTlable. Non-zero 
He 389 3 implies it is allocated and the owner's CDRP is saved in the Longword. 
1048 3590 ; 2. PDT$L_PQ_PGOQFL, PDTS$L_PQ_PGQBL are a queue header that Lists CDRP's 
4 4 : waiting for the Aligned Page. 
1048 298 ; 3. PDTSL_PQ_SVPPTE points to a PTE slot in the System Page table that 
104B 3594 ; belongs to this Port. PDT$L_PQ_UBFSVA contains the System Virtual 
; ress associated wit g ° 
1368 292 Add jiated with this PTE 
1048 239 ; ‘Mapping’ an unaligned user buffer means copying all, or the first 512 bytes, 
1048 3598 ; whichever is less, of the user data to the Aligned Page. This means that 
1048 3599 ; CDRPSL_BCNT (if ertgrnotty >512) is reduced to 512. The copying uses 
1048 3600 ; the PTE slot pointed at by PDTS$L_PQ_SVPPTE, and the System Virtual Address 
1048 3601 ; associated with it. Essentially, the PTE that points to the first segment 
1048 ret : (i.e. the user data in the first page of the user's buffer) is put into 
1048 3603 ; our reserved PTE slot. Then the user data in this pognent is copied. Then 
1048 3604 ; the next user PTE is loaded into our reserved PTE slot and the second (if 
1048 3605 ; any) segment is copied. 
104B 3606 ; 
1048 3607 ; Inputs: 
1048 3608 ; R4 => PDT 
+ oe 202 3 R5 => CDRP 
1048 3611 : Outputs: 
1048 oig 3 at toned Page allocated and user data copied. 
3 egisters RO-R2 modified. 
1048 361 R O-R2 modified 
1068 3615 
1048 $16 MAP_UNAL IGN: ; We come here for unaligned transfers. 
50 oOODC C4 00 1968 61 MOVL POTSL_UCBO(R4),RO ; RO => port UCB. 
07 €0 105 618 BBS #PS - :; If controller supports odd addresses, 
OOAC C0 105¢ 619 ucesa PORTSTEP1(RO),- ; then branch back in Line. 
OCAO C4) «=—DS. ss 1056 «= 3621 TSTL PDTSL_PQ_POWNER(R4) : Test if aligned page available. 
11 13 105A 36 ¢ BEQL ; EQL implies available. 
10 AS. 53 7D 193 6 MOVQ R35, CORPSL_FR3(R5) 3; Else save context. 
28 B5 B6 1060 3604 INCW  a@CORPSL_ROCPTR(RS) : Bump UCBSL_RWAITCKT. 
OC AS 8ED0 196 625 POPL CORPSL_FPC(RS) ; Save returf point. : 
65 OE€ 106 626 INSQUE CORPSL_FQFL(RS),- ; Queue this CDRP to resource wait Q. 
Oc9C D4 1069 627 @PDT$L~PQ_PGOBL (R4) 
05 ! 3 ° 8 108 RSB ; Return to caller's caller. 
OCAO C46 =655~=—s 0 1980 650 MOVL R5,PDTSL_PQ_POWNER(R4) ; Allocate Aligned Page. 
00000200 8F D1 1 2 631 CMPL #NO_PHYCONTIGBYT,- : Test for transfer shorter than Length 
D2 AS 107 6 § DRPS$L_BCNT(RS) 3 oF aligned contiguous buffer. 
98 18 107A 36 BGEQ ; GEQ implies short transfer. 
00000200 8F DO 107C 3634 MOVL #Nn0 PuYCONTIGRYT.= ; Reduce transfer to total bytes in 
D2 AS Re ? 2 208 CORPS$L_BCNT(R5) : aligned contiguous buffer. 
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RIVER SEP=-19 AX/VMS cro Vv04-00 Page 
VOen OO + MAP_UNALIGN uVAX I Q-BUS Map Unaligned Bost} 80; 93: 93 DRIVER.S RC) PUDRIVER.MAR; 1 . 
1084 7 
1084 ei 3; Here after successfully allocati ng the ol toned buffer, if the user operation 
1084 36 is a WRITE, we copy the user's data to the aligned buffer. If the user 
1084 3640 ; eration is a RE we branch around the copy and merely titi the 
1084 3641 ; ¢ RPSL _LBUFH_AD field. The data from a READ is copied to the user 
} r eu) ; buffer after the 1/0 is complete. 
01 €0 1084 3644 BBS #IRPSV_FUNC,- ; If a READ, branch around. 
11 CA AS 1 86 645 CDORPSW-STS(RS) ,40$ 
18 #10 1 o78 BSBB SETUP_COPY_SEGI ; Call to setup copy of user data. 
108B 364 ; This is a complex routine that 
1 6 308 3; returns: R # bytes in first 
1088 364 r sggnent R1 => user data, 
1088 3650 : R2 => aligned page, (SP) = # bytes 
iss 651 ; in second segment (or zero if none), 
10 $3¢ : 4(SP) (valid only if (SP) non-zero) 
1088 365 3; «zero. 
1088 3654 30$: 
82 $} 9 1088 3655 MOVB (R1)+,(R2)+ 3; Copy a byte 
FA 50 5 108€ 3656 SOBGTR RO, 308 3 Loop thee entire segment. 
50 ea 1091 3657 POPL RO ; Get jengsh of next segment (if any). 
064 13 1094 3658 BEQL 40$ ; EQL implies no more. 
77 ~=10 1938 659 BSB8B SETUP _COPY SEG? ; Call to setup copy of second segment. 
F1 11 +84 739 408 BRB ; Branch back to Loop. 
51 2C AS DO 109A 366 MOVL conest LBUFH_AD(R5),.R1.; R1 => destination for buffer handle. 
81 OCA6 C4 00 +44 66 MOVL DTS. PQ_PGPRAD(R4),(R1)+; Copy physical address of Aligned Page 
61 7C =10A 664 CLRQ CRI) 3; and zero out rest. 
0S 10A5 3665 RSB 3; And return to caller. 
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vOo~000" 


SETUP_COPY_SEG1 


18 AS 8—D0 


CC AS 
OCcBO C4 
15 00 


CC 85 
OCAC D4 


OCAC D4 se? ae | 8F 
5 DO AS 

51 50 OCA8 C4 

7E 

52 02 AS 50 

52 0200 f 

50 00000200 8F 0 
7E 52 FFFFFEOO 8F 


Be 


dO 
EF 


oO 
oo 


o- 920-9009 OW 
Wwe 
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and SETUP_COPY_SEG2 


Note: 


SETUP_COPY_SEG1: 


; Inputs 
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«SBTTL SETUP_COPY_SEG1 and SETUP_COPY_SEG2 


+ 
SETUP _COPY_SEG1 
p 


- a routine to setup a copy from (to) the aligned 
age to (from) the user's buff 


er. 


CORPSL_SVAPTE => System Virtual Address of the vege toate Entry that 
u 


CORPSW_BOFF 


maps the first page of the user 
space. 
Offset in this page of user d 


fer into user 


= ata. 
PDTS$L_PQ_SVPPTE => System Virtual Address of an available PTE in the 
System Page Table that we can use to map the user 
buffer into System space. 
PDTSL_PQ_UBFSVA => System space address of the page associated with 


PDTSL_PQ_ALGNPG 
CORPSC_BUNT 


Outputs: 


revious PTE. 


> System space address of the aligned pag P 
Length of data to transfer. ( < or = 512) 


RO = Number of bytes to copy in first segment. The first segment is 


R1 
R2 
($ 
4( 


CORPSL_ 


POPL 
MOVL 
EXTZV 


BISL 


MOVZWL 
A 


define 


the data beginning at CDRPSW_BOFF in the first 


page of the user buffer and continuing Fill the end of the page. 
stem space address of first byte in user buffer. 


rst byte of aligned page. 


Either # bytes in the second segment or zero. 
Valid only if (SP) is non-zero. Then this is zero. 


SAVD_RTN is modified. 


CDRPSL_SAVD_RTN(RS) 


CDRPSL_SVAPTE(RS) ,.- 

PDTS$L_PQ_USRPTE(R4) 

#PTESO_PFN,#PTESS PFN,- 

@CDRPSC_SVAPTE(R5S,- 

@PDT$L_PQ_SVPPTE(R4) 

#PTESM_VACID!- 
TESC “KW! - 


ESC" KOWN,- 
DT$L~PQ_ SVPPTE(R4) 
RPSW-BOFF (RS) .RO 
T$L_PQ_UBFSVA(R4) .RO,R1 
(SP) 

RO, CORPSL_BCNT(RS) ,R2 
#512,R2 

208 


RO,#512,R0 
aoC<AxTFF>,R2,-(SP) 


5$ 
(SP)+ 


Clean stack so that we can return 
values to caller on it. 


3 Save user SVAPTE in PDT. 


Construct a PTE with the proper PFN, 
protection=KW, and own=K. Here we 
move the PFN. 

And here we set VALID, the protection 
and the ownership and thereby map 
the first page of the user buffer 

as System Space. 


Ri = SVA of Ist byte of user data. 
Invalidate virtual address. 

Place signal on top of stack. 

R2 = relative offset of end of buffer 
Does user buffer slop onto next pages 
gfe implies no spill over. 

RO = Length of 1ST segment to copy. 
Push Length of spill into last page 
of user buffer. 

NEQ implies there was such slop. 

If no such slop, clear top of stack. 


H 14 


768 SETUP_COPY_SEG2: 


RIVER 16-SEP-1984 01:05:05 VAX/VMS Macro v04-00 Page 83 
Hired SETUP_COPY_SEG1 and SETUP_COPY_SEG2 eT 7 80:93:40 DRIVER.SRCJPUDRIVER.MAR; 1 . (5) 
F7 8F 78 10F 724 ASHL #-9,R2,R2 ; R2 now contains one more than the 
sg ae ? ? 1 rs 725 ; number of full (512 byte) pages 
10F7 37 § : in middle of user buffer that have 
10F7? 37 ; not yet been accounted for. Note 
ieee 7 3 ; that the first page spose toty 
10F7 37 ; partially filled = CDRPSW_BOFF) 
10F7 3730 ; is accounted for in RO, and any 
10F7 3731 ; spill over into the last page is 
: ef f § 108 ; accounted for on the top of stack. 
52. O07 10F7 3734 ; DECL ; Reduce # full pages by one. 
oc 15 10F9 3735 BLEQ 30$ :; If zero, branch around. 
00000200 8F DD 10FB 37 § PUSHL #512 : Indicate full 512 byte segment. 
. 18) g & 208 BRB 10$ 3; Branch back. 
50 D2 A5 00 1198 739 ‘ MOVL CORPSL_BCNT(RS) ,RO ; RO = Length of 1St and only segment. 
18 ag 308 
1107 rs ; Here RO has the Length of the first segment to copy. The lengths of the 
1107 37435 ; subsequent segments have all been pushed onto the stack in inverse order. 
1107 3744 ; The Last item pushed onto the top of stack is a zero to indicate no more 
1107 oe 3 segments. R1 is pointing to the first byte of user data. 
44 9E& 1107 374 MOVAB PDTS$L_PQ_ALGNPG(R4),R2 ; R2 => Aligned page. 
” oc BS 5 110 m8 JMP @CDRPSL_SAVD_RTN(RSS ; Return te caller Leevine data on stack 
110F 3750 ;+ 
110F 3751 ; SETUP_COPY_SEG2 - Routine to setup copy of the second Segnent of user data 
110e P36 : from (to) the user buffer to (from) the aligned page. 
110F 3754 ; Inputs: 
1108 739 3 ae PDOTSL_PQ_USRPTE = System address of PTE that describes previous page 
110F 3756 ; of user buffer 
110F 3757 ; PDTSL_PQ_SVPPTE = Slot in System Page Table to map user buffer 
11Re P38 3 PDTSL_PQ_UBFSVA = System Space address that corresponds to this slot 
110F 3760 ; Outputs: 
HOF 376) fete ete rst pa USRPTE = PDTSL_PO_USRPTE + 4 
110F Pe¢ R1 =>"Byte zero of page that corresponds to slot defined by 
1108 763 ; PDTS$SL_PQ_SVPPTE. 
11 765 : Note: R2 must be preserved. 
110F 3766 ;- 
110F 
Hor 37 
7 A #4,PDTSL_PQ_USRPTE(R4) ; Point to next user PTE. 
_ "3 $0 ep 1106 nf exTiV #PTESV_PFN,BPTESS PFN,- ; Construct a PTE with the proper PFN, 
OCBO D4 1117 ae @PDTSL_PQ_USRPTE(R4),.- ; protection=KW, and own=K. Here we 
OCAC D4 111A 377 @PDTSL_PQ SVPPTE(R4) ; move the PFN. 
C8 i11D 3774 BISL #PTESM VALID! - : And here we set VALID, the protection 
W1—E 3775 PTESC_Kw!- : and the ownership and thereby map 
000000 He 3999 aPDTsc~pa sVPPTE(RG) ; {nto gystemSpacenn ee 
3; _ into m . 
=_* 3 OCA ef dO ii é re MOVL PDTSL_PQ_OBFSVA(R4),R1 ; RI => Rest of user data. 
1136 77 INVALID R1 : Invalidate virtual address. 
05 i2& 3780 RSB ; Return to caller. 
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¢ -SBTTL + FPCSMAPIRP_BDA, Map a buffer for BDA 


4 3+ 
5 ; Place holder. 


> —) —) bb —) 4 

>) —) 

SSN ot 
NO 


3 FPCSMAPIRP_BDA:: 
RSB 


oO 
uw 


cy 


00000000 * GF 
F042 DF 
2c AS 


ts ss ns ss a a a ss ss ss a a tt tt 
a se a tn ts ts ts ts a ss a ts te a a st 


DXA SSSI ES AAAI AAI AIA AAA AAA AAA AAI 


MMM > > & FMD Nn 9 DO FVOOCCOSCOCSOSOOSDSOO 
RRRNMNINNNN 3 3 3 BQO OOOO OCOOO OOOO 00000 


0.09 09 G9 09 09 C9 Cd Cd C0 Cd G0 Cd Cd G9 Gd Cd Cd C9 G9 C9 C9 C9 CD C9 C909 0909 SII NII 
DNAVES WN S$ OOONAUES WN O OONAUE WN $0 OONOUS win 


WW 
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16-SEP-1984 01:05: AX/VMS Macro V04-00 Page 
+ FPCSUNMAP, Release mapping resources grSEb 19 4 80:93:40 DRIVER. SRCJPUDRIVER.MAR; 1 . 
-SBTTL + FPCSUNMAP, Release mapping resources 
$@ 
3; FPCSUNMAP 
Inputs: 
oa. 


= eS 
CORPSL_UBARSRCE contains accounting of allocated resources. 
CORPSL_LBUFH_AD => local buffer handle. 


Outputs: 
Resources returned 
CORPS$L_LBUFH_AD cleared 
RO-R2 destroyed 
Other registers preserved 


FPCSUNMAP: : 


PUSHL R3 3; Save register. 

PUSHL R5 : Save another. 

MOVB CORPSL_UBARSRCE+UBMD$B_DATAPATH(RS),RO ; RO contains datapath 
; _used in transfer. 

MOVL PDTS$L_UCBO(R4) ,R5S ; RS => " 


oc 
ao 
@ 


MOVL  UCBSL~CRB(RS) ,R3 : R3 => CRB. 
MOVB RO CRESL INTD+VEC$B_DATAPATH(R3); Set path number for purge 


JSB G*fOCSPURGDATAP ; Purge specified data pa h. 
CLRB CRBSL_INTD+VECSB_DATAPATH(R3) ; Clear datapath # from CRB. 
POPL R5 3; Restore register. 

POPL R3 ; Restore another. 

JSB G* 1LOCSRELMAPUDA ; Return allocated map registers. 
JSB @RELDATAPATH_TV ; And also the datapath. 

CLRL CORPS$L_LBUFH_AD(R5) ; Prevent spurious deallocates. 

RSB . ; Return to caller. 
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11 

11 

11 

116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
116 
117 
117 
117 
117 
117 
117 
117 
137 
117 
117 
117 
117 
117 
117 
117 
118 
11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 


6 
6 
6 
C 
C 
F 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
5 
7 
A 
8 
: 


+ 
FPCSUNMAP_UV1 
| 


CDORPSL_LBUFH_AD => Local buffer handle. 


Outputs: 
Resources returned 
CORPS$L_LBUFH_AD cleared 
RO-R2 destroyed 
Other registers preserved 


wn" Se Ge Ge Ge Ge Ge Se Se Gets Se Sse Sete 
i 


PCSUNMAP_UV1: : 


DO AS CEB BLBS CORP$W_BOFF (RS) ,- ; Branch around if Not word aligned. 
OA UNMAP_ONALIGN 
UNMAP_ODD: ; Label to allow branch back. 
O0000000'GF 16 JSB G* IOCSRELMAPUDA ; Return allocated map registers. 
2C AS) (4 CLRL CDRPS$L_LBUFH_AD(RS) :; Prevent spurious deallocates. 
05 RSB ; Return to caller. 


UNMAP_UNAL IGN: 


Here after successfully using the aligned Page, if the user operation 
is a READ, we sone the user's data from the aligned page. If the user 
sperat ren is a WRITE, we branch around the copy and merely deallocate 
the aligned Page. The data from a WRITE is copied from the user 
buffer to the aligned Page when the aligned page is allocated. 


MOVL PDTS$L_UCBO(R4) ,RO ; RO => port UCB. 
BBS - : If controller supperty odd addresses, 
UCBSO_PORTSTEP1 (RO) .~ ; then branch bac 


50 00DC C4 00 
07 €0 

OOAC 2 in line. 

: If a WRITE, branch around. 
Call to setup copy of user data. 


This is a gomp sex routine that 
= # bytes in first 


01 BBC #IRPS$V_FUNC,- 

13 CA AS CORPSW-STS(R5) , 208 
FF23 BSBW SETUP_COPY_SEG{ 
returns: R 

segment, R1 => user data, 

(SP) = # bytes 

r zero if none), 
nly if (SP) non-zero) 


NOU EWR $9 OO NAME WIN OOD NAME WN OS OO NAME WN" OOO NOUS WO 


R2 => aligned page 
in second segment (o 
4(SP) (valid o 
zero. 


SINS SSNS DDD DDD DDS TT BE BE EE EWI 


10$: 


MOVB (R2)+,(R1)+ Copy a byte. 

SOBGIR RO,10$ Loop thru entire segment. 

POPL RO Get benggh of next segment (if any). 
EQL implies no more. 

Call to setup copy of second segment. 


Branch back to loop. 


AAIAIA AAAI AAA AAA AAAI IAIN AIA AANIAI IAAI AAI AIA AIAN ANIA AINA AINA AA AAI 


Me 
MS 
mS 
MS 
MS 
NC 
NC 
NC 
NC 
NC 
NL 
NU 
NU 
NU 
NU 
NU 
OF 
O\ 
O\ 
PE 
PE 
PE 
PE 
PE 
PE 
PE 
PE 
PE 
PE 
PE 
PE 
PE 
PE 
PE 
PE 
Pt 
Pt 
Pt 
Pt 
Pt 
Pt 
Pt 
Pt 
Pt 
PI 
PI 
Pt 
PI 
PI 
PI 


fo Te Te te Je te Js | 
OumeWwn—Owoe 
Bee sete tees 


BEQL 20$ 
BSBW 35 1UP_COPY SEG? 
BRB $ 


5 => CORP 
CORPSL_UBARSRCE contains accounting of allocated resources. 
| 
| 
| 
| 
| 
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7 208: 
OCAO C4 1 133 is CLRL Pose Pa. PQ try tie} ; Release Aligned Page. 
gc AS 4 113 CLRL Cit AD(R5) : Prevent spurious. geal locates. 
50 0C98 04 F 119A ay REMQUE @PDTSL_ LS Upear FL(R4),RO ; RO => Waiting CDRP (if any). 
1 1D 119F BVS : VS implies no waiters 
7 > 7D 11A1 3 mMOVa R3,-(SP) ; Save registers before’ resuming waiter. 
5 DD 11A4 9 PUSHL R | 
11A6 94 
50 0 HB 95 MOVL ; RS => Waiter's CDRP. 
53°10 AS 7D 11A 96 MOVG CORES FR3(R5) ,R3 ; Restore his registers. 
FE9B 830 11AD 97 BSBW MAP _UNALIGN : Call to allocate and copy data. 
1188 38 3; _Note allocation MUST succeed. 
QOO00000'GF 16 118 9 JSB G*SCSSRESUMEWAITR ; Resume waiting thread and any backed 
1186 3901 Pagal ac 
55 8EDO 1186 4 POPL R5 ; Restore our original registers. 
53 BE 7D 1189 390 mMOVQ (SP)+,R3 
11B8C 3904 30$: 
05 118C 3905 RSB ; Return to caller. 


PI 
Pp 
Pr 
pP 
P 
P 
p 
Pp 
P 
P 
P 
Pp 
Pp 
P 
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1180 $08 -SBTTL + FPCSUNMAP_BDA, Release mapping resources BDA 
1180 39 : 3+ | 
11BD 3910 ; Place holder. 
11BD 3911 ;- 
11BD 316 
11BD 391 
05 1180 3914 


FPCSUNMAP BDA: : 
i 


U 
U 
U 
U 
U 
U 
U 
U 
U 
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~SBTTL INTERNAL SUBROUTINES 
-SBTTL + POLL_CMDRING 


+ 

POLL_CMDRING is called to poll the command ring and reclaim any slots (and 
the Buffers ge to by them) that have been released back to the host by 

; the port. POLL_CMDRING makes use of some PDT fields: 


PDTSB_CRINGCNT = which maintains the count of how many as yet 
unreclaimed slots the host has sent to the port. 


PDTSB_CPOLLINX = whose low order UDASK_RINGEXP bits contain the index 
of the command ring slot which we should poll next. 


PDTSB_CRCONTENT = an array of UDASK_RINGSIZE bytes, each of which 
maintains the index of the buffer currently pointed 

at by the corresponding ring slot. 

| 

| 

| 


PDTSL_BDTABLE = an array of UDASK_RINGSIZE He. meat oy each of which 
etal the buffer corresponding to the index of the 


; POLL_CMDRING polls ring slots to see if the port has released them until 
either of the following two conditions obtain: PDTSB_CRINGCNT goes to zero, 

; indicating that all command ring slots sent to the port have been reclaimed; 

; or upon polling a slot we come upon one that has NOT been released as yet. 
Since slots are released in sequence, this means that we should cease 

2 polling. 


: POLL_CMDRING always polls the slot selected by PDTS$B_CPOLLINX. The low order 
; bits of this field are extracted and used as an index into the two arrays 

3 mentioned above. 

: A slot is polled by testing its high order bit. A zero bit indicates’ that 


the slot has been released to the host. ‘Upon finding a released slot, 
; POLL_CMDRING reclaims it and the buffer pointed to it by: 


1. The index of the buffer is obtained from the element of the 
PDTSB_CRCONTENT array corresponding to the current ring slot. 


2. A pointer to the buffer is obtained from the PDTSL_BDTABLE array. 


3. PDTSB_CPOLLINX is incremented so that the next poll will use the 
next slot in the command ring. 


4. PDTSB_CRINGCNT is decremented to show one less unreclaimed slot. 


5. If any buffers are queued waiting for available ring slots on. 
DTSL_PU_SNDQFL, the first one is removed from the Q and 

nserted into the command ring by calling internal subroutine 

INSERT_IN_CRING. | 


6. The now free buffer is put onto the response ring or the free Q, 
whichever is appropriate, by calling internal subroutine, 
Q_DEALLOC_BUF. 


7. Finally we branch back to the beginning of POLL_CMDRING to poll 


ee ee ee ee ee me ee ee ee ee ae ee ee ee ee a a a ee ee a ed a a a 
ed ed a a a cee etd ee ei ee ed ee ee a ce ee en ee ec a a ce cae a a ae ce ce ce ec ce ce ee ec ce ee ce ee ee ee a ee eee 
PosderdecTecdecdectecdecTosdesdecdecductecdecdecdecdecdecdecdecdecDececdecdecdecdetetesdecdectecDuctecdesDecdestesdecdedesdecDesderTesTosTesdesdectecDecDectestostestes] 
MM MMM MM MMMM MMMM MMMMMMMMMMMMMMmMmMmMmMMMMmMmmmMmnmmMmmmmnmmmrmnrmncncrrnicnencry 
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rtbie 


ring or —_ free Q, whichever is 
appropriate 
Branch back to reclaim more buffers. 


BRB POLL _CMDRING 
RSB ; Return to caller. 


208: 


11BE 3973 ; again. 
11BE 3974 ; 
11BE 3975 ; Inputs: 
11BE 3f8 3 
11BE 3977 ; RG “Addr of PDT 
11BE 44 | $ 
11BE 3979 ; Outputs: 
11BE 3B9 5 
11BE 3981 ; RO-R2 ; “destroyed 
11BE ons 3 Other registers “preserved 
11BE 39835 ;- 
11BE 3984 
11BE 3985 POLL_CMDRING: 
11BE 3986 
0122 C4) «95 1185 987 TSTB POTSB_CRINGCNT(R4) ; See if any slots in use on command | 
3613 112 3988 BEQL 208 : ping. EQL implies NO. | 
06 OO EF 11€4 3990 EXTZV #0,#UDASK_RINGEXP,- ; Extract ring index of slot of 
52. 0121 C4 11¢7 991 PDTSB_CPOCLINX(R4),R2  ; where to begin polling. 
0248 (442 D5 11(B 33 TSTL PDTSL_CMDRING(R4)CR2] ; Has controiler released this slot? 
28 «(19 1189 BLSS 20$ 3; LSS implies NO. 
52. 012C C442 QA 11D2 MOVZBL PDTS$B_CRCONTENT(R4)CR2J,R2 ; R2 = index of buffer pointed 
11D8 ; at by this slot. 
52 014C C442 00 1108 MOVL PDTS$L_BDTABLE (R4)CR2J,R2 ; R2 => buffer header. 
52 DD 1105 PUSHL R2 ; Remember R2 => free buffer. 
0121 C4 96 11€0 INCB POTS$B_CPOLLINX(R4) ; Bump polling index. 
0122 (4 9 Ht + DECB PDT$B_CRINGCNT(R4) ; One less used command ring slot. | 
52 011004 OF 11€8 REMQUE @PDTSL_PU_SNDQFL(R4),R2 ; R2 => buffer (if * ) to be inserted 
03 1D 11€D BVS 10$ 3; _in command ring, V implies NONE. 
FDAC 30 434 108 BSBwW INSERT_IN_CRING ; Call to insert R2 => buffer in ring. 
52 8EDO 1143 POPL R2 Restore R2 => free buffer. 
FCAS 30 iE8 BSBW Q_DEALLOC_BUF Call to put free oui tee onto response 
11F8 
11F8 
11FA 
11FA 


onus 


50 2154 BF MOVZUL #SS$_ILLCDTST.RO 


Ow 
Vn 


at tb 4 gi: 7:05:05 
- STATE_ERR, RETURN CDT STATE ERROR -SEP=-1984 00:17:10 
11FB 4017 -SBTTL = STATE_ERR, RETURN 
11FB 4 18 -SBTTL = TO SYSAP 
8 85 
11FB 4027 44 Set error status code and return to caller. 
Hire i388 
11FB 4024 STATE_ERR: 
11FB 4025 
11FB 40 § 
133) 48 
1501 2059 


AX/VMS Macro V04-00 Page 91 aa 
DRIVER.SRCIJPUDRIVER.MAR; 1 (5) 


oe STATE ERROR 


otetye * illegal CDT state 


3 Return to SYS 
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1201 4031 ~SBITL juvennury SERVICING 
} ! : § »SBTTL PUSINT - Interrupt service routine 
1201 4034 : Inputs: 
1 61 4035 ; : bocsP) - Pointer fo 1D8 
1201 Pt § 5 4(SP) = SAVED R 
1201 4 ; 98 t 3} - SAVED R1 
1201 4038 ; 12(SP) = SAVED Re 
1201 4039 ; 1B tse} = SAVED R 
1201 4040 ; (SP) = SAVED R4 
1201 4041; 4(SP) = SAVED R5 
1201 4 tg ; g¢sP) - PC AT_THE TIME OF THE INTERRUPT 
1201 4043; (SP) = PSL AT THE TIME OF THE INTERRUPT 
1201 4044 ; 
1501 048 PUSINT 
53 H DO 1201 1049 MOVL a(SP) ; Get address of IDB 
04 AS DO 1204 4048 MOVL = IDB$L * BONER (R3) RS > Get address of UCB 
54 9984 CS pO 1208 4049 MOVL UCBSL~PDT(RS) ,R& : Get address of POT 
5 02 Og Be ; 98 ret move IDBSL Can OR tRaD. Re ; R3 => UDA CSR. 
OOAA C5 : 13 103¢ UCB$W. UDASACRS) ; Save error status in UCB. 
50 0203 Se ? : 18 teee ae ogres. PURGEDP(R4) ,RO : pete fv Puree data path number 
0203 C4 94 1210 4056 CLRB POT$B opeetees cae? ; Clear it. 
51 4 AS 00 1221 4057 MOVL UCBS$L_CRB(RS) ; R1 => CRB to setup for purge 
52 7 Al 9A 1225 4058 MOVZBL CRBSL™ ~INTDOVECSB. DATAPATH(R1) oR2; Save datapath #, in case we 
1229 4059 : interrupted purge in UNMAP. 
7E 51 #70 1229 4060 mMOVQ mie ra ) Push R1=>CRB, eencotepath #. 
Al 50 90 122C 4061 MOVB te im. DATAPATH(R1): Set path number for purge 
00000000'GF 16 1230 406 JSB Eo foc ePu : Purge specified data path 
53 0100 C46 p00 1236 406 MOVL atts Py NCSRURGD, R3 ; Refresh R3=>CSR after purge 
AS B84 1238 4064 CLRW UDA : Acknoylodge purge snterrust 
51 8&€ 7b 123€ 4065 MOVQ yeasache? Pop R1=>CRB, R2=Datapath 
37 Al 52 90 1241 4066 MOVB R2,CRBSL_INTD+VECSB_DATAPATH(R1); Restore ole contents of 
: $3 res t4 108 ; datapath # to CRB. 
01 €5 1245 4069 BBCC #UCBSV_INT ; See if we are awaiting interrupt. If 
09 64 AS 1247 4070 UCBSW_ VsTstas), 20$ : so then we are in hardware init. If 
124A 4071 3 not, branch around. 
53 10A5 7D 124A 407 MOova UCBSL_FR3(R5) ,R3 : Restore initialization thread 
0¢ BS 416 126E 407 JSB aUCBSC_FPC(RSS : context 
9 21 4074 BRB 30$ + And branch around to dismiss interrupt. 
’ : rete 20$: 
01 €2 1253 407 BBSS #UCBSV_PU_FRKBSY,- 3 Aperepr tate | UCB fork block, or else 
02 68 AS 1255 407 UCB$W_BEVSTS(R5) . 30S : branch ismiss interrup t 
03 10 1258 407 BSBB POLL_RSPRING ; If we were successful in appropr iat ing 
125A 4080 3; the fork block, BSBB to poll 
: “ ? 1 308 3 response ring. 
3F BA 125A 40 : POPR #°M<RO,R1,R2,R3,R4,R5> ; Restore registers. 
2 125C 4084 REI ; And dismiss interrupt. 
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o 

oS 

Oooo 

Woon 
aa 


POLL_RSPRING is called from the interrupt service routine at device IPL and 


4090 ; with the UCB fork allocated to this thread (i.e. UCBSM_PU_FRKBSY bit on in 
4091 ; UCBSW_DEVSTS). POLL_RSPRING first IOFORK'’s on the UCB so that the interrupt 
409 can be dismissed and then after resuming execution at fork IPL, it frees up 
409 the UCB fork block (i.e. clears UCBSM_PU_FRKBSY) and tests whether a power 
4094 ; failure has occurred recone ts If so, then we merely branch out of the flow 
4095 ; here to begin a thread at PO T_POWER_FORK, that causes all CONNECTION's to 
409 resynchronize. 


If we remain here (normal case) we traverse the response ring Looking for 
buffers that have been released to the host (us), and upon finding one 

we determine whether it is a SEQUENCED MESSAGE or a DATAGRAM and we call 
the appropriate entrypoint in the SYSAP for the CONNECTION over which the 
message was received. 


foal al * shu sbvahvabesh ab vabeabeabeabvab wah ahvab ab vabvaleahvaheahah ah al wal al al al sabeah ab esb sbealwal 
NVIWNO OOO VTOVCTVCTCOVUVTCTVTVCVCVCCVVCCVCUVCVCVVCVCTCT"CT"0U"0"0"0 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 $83 
1 4098 
1 4099 
1 4100 
1 4101 
1 $188 
1 410 
1 4104 ; Inputs: 
1 4105 
1 4106 R4 “Addr of PDT 
; rh} R5 -Addr of UCB 
! rit 4 UCB fork block allocated to this thread 
1 4111 Outputs: 
1 2136 
: aii Response ring polled and SYSAPs called 
1 4115 -enabl (sb 
1 4116 POLL_RSPRING: 
1 4117 
1 4118 IOF ORK 3; Lower IPL. 
0¢ AA 1 4119 BICW #UCBSM_PU_FRKBSY,- 
68 A 1 4120 UCB$W_BEVSTS(R5) : Allow fork block to be re-used. 
OOAA CS «©B5 (1 4121 TSTW UCBSW_UDASA(R5) ; See if we got a fatal error. 
0c 19 1268 41 ¢ BLSS 5$ : LSS means fatal error. 
04 £0 1260 41 BBS #UCBSV_PU af : If set, then MRESET request received 
12 68 AS 126F 4124 UCBSW_BEVSTS(R5) ,8$ 3; while we were forked, so go to do it. 
05 €1 1272 4125 BBC #UCBSO_POWER,- ; See if POWERFAIL occurred while 
10 64 A5 1274 41 6 UCBSW_STS(R5S,10$ ; UCB fork block was busy. Branch if not. 
0B séitl : a rt ss BRB 8$ :; Branch around if YES powerfail. 
BO 1279 4129 MOVW #UDASA_ATTNCODE,- : Indicate what kind of error log record 
OOA8 C 127B 4130 UCBSW_ATTNCODE (R5) ; we are about to create. 
00000000'°GF 16 ! 4 } 1 as JSB G*ERLSDEVICEATIN ; Call to create error log record of INIT. 
FO3C 31 ' a6 rt} 5 108 BRW POST_POWER_FORK :; If POWERFAIL, get out of here. 
03 0204 C4 90 3 e7 4135 BBCC #0,PDTSW_CMDINT(R4),20$ ; Branch if command ring NOT UNfull. 
FF2E 0 : 33 } $ 208 BSBW POLL_CMDRING 3; Reclaim free space in command ring. 
0206 (4 B4 1 30 4138 CLRW PDTSW_RSPINT(R4) 3 Ajweys clear response interrupt 
1294 4139 : indication since we always poll 
1294 4140 3 response ring on interrupt. 
1294 4141 30$: : ; 
0125 C4 95 1294 4142 TSTB PDTSB_RRINGCNT(R4) : See if response ring has anything to 


vou- 008" + POLL_RSPRING "973 ep= 1384 00:47:10 LDmIVER. sac aeubRiveR tag t 
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01 12 1298 4143 BNEQ 50$ 3 poll. NEQ implies YES. 
0s 159a G1e8 Oe onsp ne it his thread 
: no more, this thread. 
6 00 EF 4908 cid? * ~~ sEXTZV. #0, #UDASK_RINGEXP Extract index mod sing size leavi 
- ; Extract index mod sing size leavin 
50 Bi24 C4 129—E 4148 PDT$B_RPOCLINX(R4S a9 : RO = index of slot te poll. ° 
0208 C440 05 12A2 4149 TSTL PDTSL-RSPRING(R4) CRO ; See if slot released to host. 
Fl 8619 : x $129 BLSS 40$ ; LSS => slot still owned by controller. 
Oise C6 96 12A9 £126 INCB POTSB_RPOLLINX(R4) ; Bump is poy poll index. 
4 5 C4 97 12AD 415 DECB PDTSB_RRINGCNT(R4) ; Decr # slots passed to controller. 
29 3 C C440 9A 1281 $128 MOVZBL OB mT oe ae RO; Re = index of buffer with response. 
5 14C C440 00 : 4 $122 MOVL POTSL_BDTABLE(R4)CR 1,R8 : R3 => buffer with response. 
12BD 2189 ENABLE _RESPONSE_START: 

52 0108 04 OF 12BD 4158 REMQUE @PDTSL_PU_FQFL(R4),R2 ; R2 => free buffer. NOTE this instruction 
12C2 4159 : is copied below in the flow that gets 
12C2 4160 3; executed if tracing is enabled. Any 
12C2 4161 ; edit to this instruction should also 
12C rah} ; done to its copy. 
12C2 416 atone teats | 

0 1C 12C2 4164 BVC 5$ : VC implies R2 => buffer. 
FEF 30 1204 4165 BSBW POLL_CMDRING ; If no buffers, reclaim some. 
10 91 12C7 4166 CMPB #UDASK_RINGSIZE,- 3 For debugging. assure that we indeed 
0125 C4 12C9 4167 PDT$B_RRINGCNT (R4) ; have a full response ring. 
07 13 12CC 4168 BEQL ; EQL implies full response ring. 
! : £198 558 BUG_CHECK UDAPORT,FATAL ; Else bug check for now. 
FBCF 30 1202 4171 BSBW INSERT_IN_RRING ; Else insert free buffer in response 
18s EN pe 
50 53 00 : De $iee 57$: MOVL R3,R0 ; RO => buffer with response. 
1208 2ite 3 MOVZBL UDAB$B_CONID(RO) ,R3 ; R3 = connection ID of message. 
1208 4177 ; Here we assume that VCO is DISK MSCP, vC1 is TAPE MSCP, VC2 is DUP and 
1208 4178 ; vC255 (low order bits both on) so that VC255 maps to vC 
02. 00 EF 12D8 4179 XTZV #0, #2,- ; Low order 2 bits select connection. 
5313 A0 120B 4180 UDABS$B_CONID(RO) .R3 : R3_= connection ID of message. 
53 O0E4 C44 dO : of at 1 MOVL POT$L_PU_CDTARY(R4)(R3).R3; R3 => COT. 
00 EF 12E4 4188 EXTZV #UDABSV_CREDITS,- ; Extract credits returned by message. 
04 1 ES 4184 #UDABSS_CREDITS,- 
51 12 AO 1267 4185 UDABS$B_CREDTYPE (RO) .R1 
40 A351 AO ! = 7} $ ADDW R1,COTSW_SEND(R3) 3 Add in new credits. 
52 14A0 9E 1 eg 4188 MOVAB UDABST_TEXT(RO) ,R2 3; R2 => apt teatten area of message. 
51 _ 10 4g C 12F2 4189 MOVZWL wetter: MSG_LEN(RO) ,R1 ; erchup ength of datagram or message. 
D 12F6 4190 MOVa R3,-(SP) : Save R3=>COT and R4=>PDT before 
12F9 4191 3; _dispatching. 
04 EF 12F9 $136 EXTZV #UDABSV_MSGTYPE,- ; Extract type of message. 
04 12FB 419 ttt ty MSGTYPE,- 
55 12 a0 12FC 419% UDABSB_CREDTYPE (RO) RS 
12FF 4195 ASSUME ASK_SEQMSGTYP EQ 0 
23. 12 «412FF $138 BNEQ ; NEQ means NOT sequenced message. 
00 83 16 13501 419 JSB @CDTSL_MSGINPUT(R3) ; Call sequenced message handler 
! be 2138 ass 3 passing R2 => message text. 
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40 AS 50 A2 
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F12B = 530 
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* POLL_RSPRING 


SSEp-1986 00:17:16 


0 mova (SP)+,R3 
87$: 
: TSTW CD1$U_SEND(R3) 
4 gt 9$ 
5 RESUME _FP - 
$ OCDTSL _CRUAITOFL (R3) ,~ 
QEMPTY=89$ 
g 89$: hy 
10. —Sti‘(<i«é‘«éi 308 
11 90S: 
1g CMPL #UDASK_DGTYPE RS 
1 BNEQ 100% 
1 J$B8 @CDTSL_DGINPUT(R3) 
16 BRA 85$ 
17 100$: 
18 CMPL § #UDASK_CREDTYPE,RS5 
1 BNEQ 1 
9 BSBW  NULL_MSG_INPUT 
¢ are 85$ 
110$: 
4 CMPL #UDASK_MAINTTYPE .R5 
5 BNEQ 120$ 
5 EXTZV #UDABSV_CREDITS,- 
#UDABS$S~CREDITS,- 
8 UDABS$B_CREDTYPE (RO) ,RC 
, SUBW RO, COTSW_SEND(R3) 
1 BSBW NULL_DG_INPUT 
§ BRB 85$ 
4 1208: 
5 BUG_CHECK UDAPORT, FATAL 
ENABLE _RESPONSE_CODE: 
40 BSBW = TRACE_RESPONSE 
4g REMQUE @PDTSL_PU_FOQFL(R4),R2 
43 BRW ENABLE ~RESPONSE_END 
45 
46 
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3; Restore R3=>CDT and R4=>PDT after 


; Resume anyone wait 


dispatching. 


See if we are positive here. 
LEQ means no more qreeits left. 
ng for credits 


Where to go if no waiters. 
Go back and try to resume more. 


Go back to test for more responses. 


See if Datagram message. 
NEQ means test for something else. 
Call pocoeres handler pess ing 

R2 => da ogres, with R1 = Length. 
Go back to test for more responses. 


See if CREDIT message. 

NEQ means test for something else. 
Call Null Message handler to dispose 
of and recycle buffer. 

Go back to test for more responses. 


See if MAINTENANCE message. 

NEQ means test for something else. 
The Credit Field of Maintenance 
messages is to be ignored. So we 
again extract credits field and 
Subtract out credits added in above. 


Call Null Datagram handler to log 
message and then recycle buffer. 
Go back to test for more responses. 


If we enable hog 0 the driver will 
dynamical atch location 

ENABLE _RESPONSE START to BRW here. 
Copy response buffer to trace table. 


R2 => free buffer. 
Branch back to normal stream. 


ENABLE RESPONSE OF F SET=ENABLE RESPONSE _CODE-ENABLE_RESPONSE_ START-3 
.Gsa Ss 
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v0e~000" + PUSSA_POLL "$$EP-198¢ O0:17:10 DRIVER. SRESPUDRIVER.maR;1 “2% 2%) 


1358 4 8 -SBTTL + PUSSA_POLL 
1388 2580 ss 
1358 4 29 : Routine periodical ly called ~* CRB wakeup mechanism to see if the SA re nyeee 
1 28 4 j : indicates that this port has had an uncorrectable error. If so the por 
! : ? ? 3 Ore- nitialized. in order to bring it back. 
1 28 4255 ; Inputs: 
1358 4 2$ : 3 R3 => CRB. 
1358 4 2 : 
1358 4 gi ; Outputs 
135B 4259 ; Ait registers, RO-R5 are modified. 
1358 4260 
1358 4261 PUSSA_POLL: 
1358 4 86 
10 AS DO 1358 426 MOVL CRBSL ofuas Taye (RS). R4 3: R4 => PDT. 
55 000C C4 DO 155F 4264 MOVL POT$L-UCBO(R4) ,R ; RS => UCB. 
50 0100 C4 DO 1364 4265 MOVL POTsL -P CSR ERED. RO : RO => Port CSR. 
a B0 1369 4 06 MOVW ATR 3; Retrieve SA register 
OOAA C 136C 426 UCBSW_ UDASACRS) ; and check for error. 
OF 19 139° ? 8 BLSS 10$ ; LSS means YES, error. 
OF C1 1351 4270 ADDL3 @#SA Pout. {arya «= ; Here we had no error, so we simply 
00000000' GF 1373 4271 G*ERESGL-ABSTIM,- t re-establish SA polling interval. 
18 A3 1378 427 Crest SOUET INE (RS) 
DE AF 9E 137A 427 MOVAB PUSSA_POLL ; And re-establish wakeup routine. 
1C A3 1320 4274 CRBS$L— ~TOUTROUT (R3) 
0S 137F 4275 RSB 3; And simply return to caller. 
1380 4276 10$: 3; Here we had an SA error. 
1 sf 427 SETIPL #IPL$_SCS 3; Lower IPL for processing. 
BO 1383 4278 MOVW #UDASA_ATIN - 3 Indicate what kind of errorlog 
OOA8 C5 1385 4279 UCB$W_ATTNCODE (RS) 3 record we are about to create. 
00000000'°GF 16 1388 ? +} JSB G*ERLSDEVICEATIN ; Call to create error log record of SA 
: error 
QOAA (5 = B4 138 4 Ht CLRW UCBSW_UDASA(RS) ; Clear so that we do not report error 
1392 428 ; redundantly. 
EF2E 31 1338 : Be BRw POST _POWER_FORK ; Branch to begin re-init of port. 
1395 4286 PUSEND: 
1395 4287 - END 
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:10 DRIVER.S REIP UDRIVER.MAR; 1 
OMMAN 1 HARD_RETRY A R 03 
ENABLE-COMMAND-START 6 re “Ts HS1_M_BIT15 : s 
LE-RESPONSE CODE 3 R 8 HS1_4_ IE 
a * 12C2 R HS1-V~CRNGLEN 2 
ENABLE “RESPONSE “OFFSET 009 HS1_V_RRNGLEN = 
ENABLE” RESPONSE. _START 8 8s BD R HSe. AL “Pl ~ 38 4 
ERLSDEVICEAT ceneeese ie “1? = 00000002 
a2eane 
ERE SAL Drotee cE eneeetes x HS4-V- BURST s 44 hs 
EXESALOPHYCNTG eeereeee x 10BSL~ =ADP . 8608006 
EXESGB_CPUTYPE cereeee IOBEL=CSR : RHE 
EES CT TENUSEC eeeereee x ILL JOFUNC 00000080 R ‘ 03 
EXE SCL -URDELAT eeveeree X08 INTO song) 
3 10FORK reerkeee x 83 nitrere BUFS 4 4344 c. 63 
EXESICROPARR ccereeee of 6S INT “BELTA 00000008 
oe 
Pr attoone = 00000002 . INIT INIT STEPS 44 24 . 63 
443 ST OChG it sft ne 83 INIT-UDA BUFFERS 4 et R 03 
re a mT SHE 8 
EPCEDLONMELT gug9opFs me 83 INL TSUDA Bur SUV a00005e2 RS 
OOOOOCF oth 
ee epeat tes ttt R 03 INSERT_IN_FREEQ Ha : 83 
EPCSnATUTE CR’ tit etd 8 NSERTRVAT ee QOOOOECD R 03 
A al aes NTR_VEC = 00000088 
443 ts $4 8 10s” INITIALIZE = 00000004 
fetSmapiee SO ooor DE 03 10$_ STOP = 4 4 
OS" VIRTUAL = 
EPCSRAPIREBYP, QO000CEE RG 03 JOS VIRTUAL See 
PCSMAPIRP” UV1 00001014 03 IOCSALOUBMA gaeeeeee x 0% 
i CSMRESE a OOOOOCFF 03 IOCSLOADUBAMAP aeneeene =X 9 
EPCEMSTART 00000008 03 +93 A, lt aaa aeenaane I. 83 
F PCSQUEUEDG 9000090 R 03 LOCSANTVER noomens 3: a 
UEMDGS 00000C ; oa 
FPCSRCHMSGBUF Op OoE S 03 IOCSRELRAPUDA. eee eee 53 
FPCSRCLMSGBUF es 03 
OO000CFB 0 IOCS$R 
FPCEREJECT, Gooocre Re 93 HOCBREGDATAP cerns fg 
gene x 
FPCERLSCOUNT Goce Rs 95 I GESREGRAPUDA cieeees 8 
FPCSSENDDATA CFB eee : 
FPCSSENDDG 4 CFB 8 IOCSRETURN eee : 
FPCESENDRSG SS Loc TaREADcRB ceseewne J 
EPCESENDREDS creme 05 IDESMELE te 
FPCS$STOP_VCS 00 cf8 8 Tress _F CODE ~ 
FPCSUNMAR Bpo115 IRPSV=F CODE 
FPCSUNRAP BDA a a 
EN = 1 LESI_CNTRLTY 
Ae i § 0 LOADOBA_8 93 
O HARD C 2 
HARDPOWER AAF 8 LRADUSA Dna at} 
HARDWARE_INIT 811 LOOP_LIAI 


ee ie 


| 
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} 


<z 


-SEP- :05: AX/VMS Macro V04-00 Page 99 | 
PUDRIVER "eS Ep= 1984 80:97:46 UORIVER. SRCIPUDRIVER.MAR; 1 (5) | 
Symbol table . | 
MAPSM_MAPREGS = 1 po Tse .SuaTYP r oA 
RAPE RAPES = S808 bai ae = $3s8eh | 
se 1o48 ROS PDTSC-LENGTH 2 4 
MASRH = o ° is PDT$C-PULENGTH = C94 
MAYA. CNTRLTYP = 0000000 PDTSC-RINGLEN . age | 
PTBA teeeeeee =X 03 PDISC“SCSBASE . oot 
RSGS_RCSSAVER = Soo000s¢ PDTSC “OVI LENGTH = 90000684 | 
RSGS_RORKAVER a tit PDTSL-ACCEPT = 000 
MSCS"UDASONVER : 7 PDTSL-ADP = 0000006 | 
UBA_UVI Cooker RO PDT$L-ALLOCDG 3 
OOM SECTANITS = 00000005 PDTSL-ALLOCMSG = 00000014 
No-DVERLATAA gssggass nos POTHL ABTA SHH 
percent ieee = 90000001 PDTSL-COMAREA 9900900 
NO"PHYCONTIGPGS ~ QOOD00FC R 03 PDTSL_CONNECT = 0000001 
-foT 0000006 R 03 PDTSL_DCONNECT = 00000028 | 
MULT “PRR ROUT DO0000F9 R O83 PDTSL-DEALLOCDG = 9000001¢ | 
~ERR. 000000D0C R «8 PDT$L-DEALLOMSG = 9000002 | 
NULL ROUTINE O00000F9 R 3 POTSL “DEALRGHSG = 90000024 
Sek * Soo0080¢ R 03 PDTSL-RAINTFCN = 00000078 | 
OVERLAYRAP 000034 R 3 PDTSL-MAP = 90000086 | 
mae 000003CB R 03 PDTSL-MAPBYPASS = 00000030 
op = 00000008 PDTSL-MAPI = 00000054 | 
PBSB TYPE = 0000000A pet erstackeee - 0000008 
PBSC_OPEN = 00000005 eo Tet pax = 90000076 
reer : B00Re abe = $e 
PBSL_BL INK = 00000000 PDTSL_MSTA = 00000074 
Pest PL INK = 9000002 PDTSL_PQ_ALGNPG 00000CB4 
SLL : 90000078 PDOT$L PQ"M 00000694 
PBSL_RPORT _REV = 00000014 PDT$L—~PQ-PGPHAD OO000CA4 
4 = 90000030 PDTS$L~PQ~PGQBL 0O000C9C 
=S8t INE = 0000003C PDT$L~PQ~PGOFL 4 
pest ual Tare = 00000038 PDTSL~PQ~POWNER Q000CA0 
er-irane & = 00000024 DTSL~PQ"SVPPT 0900¢aC 
rte oe = $6000008 PDTSL~PQ"UBF SVA QO00CAS 
PBSU”SIZE = 0000001 DISL-PQ-USRPTE 9000080 
i a 0000¢ 3 R 03 PDTSL_PU_BUF ARY 000028 
PB ACLOC FAIL 000012A PDTS$L~PU-BUFQBL 000011¢ 
hh Wg 000127 PDTSL~PU-BUFQFL 000118 
POT$B_CONBI TMAP oet§! PDTSL~PU-CDTARY oo00E% 
POTSB-CPOLL INK 8001 POTSL-PU-CSR 0100 
PDT$B_CRCONTENT 0501 POTSL-PU-FQBL Boe hs 
POTSB_CRINGCNT 00001 PDTS$L-PU-FQFL 00001 
POTSB_CRINGINX 159 PDTS$L~PU-FQPTR 9000108 
=NOCURC . : PDT$L~PU-SNDQBL 114 
=PURGEDE i T$L~PU-vCO 4 
$B_RPOLL PDT$L~PU-VC & 
pO TSS NEE NT POTS PU Ne 55 e C 
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Pass 1207 : 
Symbol table sort :0 0:00:12. 
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PUDRIVER ys 1 mi tb 9 1:08:05 AX/VMS Macro v04-00 Page 103 
VAX-11 Macro Run Statistics -SEP-1984 00:17:10 (CDRIVER. SRE tip UDRIVER.MAR; 1 (5) 
Pass 2 467 :00:08.4 0:00: .¢7 
Symbol table output :00:00.3 8: :00.86 
Psect synopsis output :00:00.01 :00: 8 be 
Cross-reference output + :00.00 0:00:00.00 
Assembler run totals 185 :00:45.99 0:02:49.14 


the he ¥orking ei: Limit was 2850 pages. 
bytes (521 pages) of virtust memory were used to buffer the intermediate c oge P 
cate were 170 pages of symbol table shpece acing. Se. to hold 3129 non-local and 17 local symbols. 
4287 source Lines were read in Pass 1, producin object records in Pass 2. 
pages of virtual memory were used to define ? macros. 


Fewer ecaemre ce aenr sean wese ese } 


! ; Macro Library statistics H 


Macro Library name Macros defined 
-$255SDUA28: it -OBJJPALIB.MLB;1 3 
“$255$DUA28: (SYS .0B JL1B.MLB; 1 46 
“$255$DUA28: CSYSLIBJSTARLET.MLB;2 11 

TOTALS (all Libraries) 60 


3247 GETS were required to define 60 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:PUDRIVER/OBJ=OBJ$:PUDRIVER MSRC$:PUDRIVER/UPDATE=(ENHS$:PUDRIVER) +EXECML$/LIB+LIB$:PALIB.MLB/LIB 
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